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BCPL is a popular and elegant systems programming language 
ideal for writing games, utilities, and applications packages. it 
combines the convenience of a high level language with the flex- 
ibility of an assembler. 

g & True compiler with separate compilation. Includes all the standard BCPL 
functions. ® Full runtime library includes interfaces to QDOS graphics, file oper- 
ations, window handling, etc. B Exception handling provides diagnostics for 
debugging. ® Link loader allows linkage of separately compiled segments. 


® BCPL modules can be linked with Assembler and Pascal modules. ® 32-bit 
| variables use the full QL address space. 
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Every DEVELOPMENT KIT includes Metacomco's 
popular screen editor, and a detailed manual. 
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The first annual Sinclair QL World 
awards had a roaring start in 
December’s QL World and we were 
flooded with letters concerning the 
companies which you thought whould 
be honoured for their work with the 
QL. Reviewing for a moment the 
Original plan for the awards, we asked 
you to vote for products for the 
following categories: 

Best arcade game software; best 

-business software; best strategy 
game; best QL disc system; best RAM 
upgrade; most innovative new QL 
product. 

Starting with the last category first, 
the only one in which we did not make 
Our nominations for you to vote on, the 
nominees for most innovative new QL 
product were: 

The Tandata QL modem system: 
the ABC Gigasoft mouse and EASE 
system; the ICE user-friendly 
desk-top from Eidersoft; QL Flight 
from Microdeal; the Bright Star 
modem; Quill Version 2.0; Digital 
Precision Supercharge Basic 
compiler. 

It was good to see such a wide mix 
of nominations from the hardware and 
software fields but there was one 
nominatien which occurred again and 
again, the fantastic Microdeal Flight 
Simulators 

In the Best RAM upgrade category, 
we selected three companies for 
nomination in our entry form — 
silicon Express, Simplex and PCML. It 
was a tight race in this field — there 
was even a write-in nomination for 
Miracles systems — but you judged 
the Simplex RAM upgrade the best of 
its type. 

On the disc system front, there 
were six nominees — CST, PCML, 
Technology Research, Silicon 
Express, Cumana and Micro- 
Peripherals. The runaway winner in 
the disc sweepstakes was Silicon 
Express, with the Micro Peripherals 
unit achieving an honourable mention. 

The Best Strategy Game category 
also produced a convincing winner in 
Psion QL Chess program which beat 
an impressive field of nominees which 
included QL Reversi, Digital Precision 
super Backgammon and Psion Match 
Point. 

Neither was business software 
ignored by our busy readership. The 
nominated software in this category 
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was QL Integrated Accounts, QL 
Entrepreneur, QL Cash Trader, QL 
Home Finance and Transact — even 
though we had one write-in 
nomination for Xchange, which is not 
available on the QL. The winner was 
the Triptych package. 

In the final category, best arcade 
game software, where the 
nominations comprised QL Cavern, 
QL Meteor Storm, Lands of Havoc and 
Zapper, it was another Microdeal 
program which took top prize. You 
voted Lands of Havoc the best QL 
arcade game of 1985. 


Business Venture 


Stevenson & Partners informed us of 
its soon-to-be-released business 
software, which has been developed 
on the QL, utilising the Psion Archive 
program and consisting of an 
integrated Maintenance Planning and 
Stock Control package. 

It should be suitable for any small 
to medium business with a 
maintenance problem, for example 
industrial units or office buildings. 

The program occupies about 20K, 
and, if stored on mdv1_ with the 
Archive program, it is then feasible to 
operate the program on Microdrives, 
using mdv2_ solely for the databases. 

Price for the package will be 
around £80. Details from suppliers on 
0428 51500. 


Atari: Soft On QL? 
Atari, the other major hardware 
company using the Motorola 68000 
chip in a home computer, has 
launched two new machines which 
could herald the start of a boom in 
software for low-cost 68000-based 
computers. 

The Atari 520STFM and 520STM, 
512K RAM computers with and 
without a built-in disc drive 
respectively, will be available from 
April at £399 for the discless model 
(520STM) and £499 for the machine 
with one built-in 3.5in. disc 
(S20STFM). QL users may be 
interested to note that some QL 
software is being converted for the 
machines will hope that some 
software developed for the Atari will 
also be converted for memory- 
upgraded 512K QLs. There are, 
however, two major problems in doing 
SO. 





First, the Atari machines use the 
Macintosh-like popular Graphics 
Environment Manager mouse, picture 
and pull-down, menu-driven system. 
There have been discussions 
between Digital Research and Sinclair 
about porting this to the QL, although 
so far no agreement has been 
reached. 

secondly, and perhaps more 
important, software houses have no 
way of knowing exactly how many 
012K QL upgrades have been sold by 
the various manufacturers, nor are all 
the expansion kits compatible with 
one another. 


Adventures in 3D 


French software house Pyramide 
have announced the release of six of 
their programs in this country. Among 
them are three design utilities, a 
programming language and two 
games. The most exciting of the six, 





Super Toolkit 

The new Super Toolkit from Care 
Electronics. The 16K EPROM 
cartridge is accompanied by a 
comprehensive user manual and a 
‘library rack’ — a handy piece of 
plastic with slots for up to half a dozen 
microdrives. 


=< = 





and certainly one of the most original 
games to appear on the QL is 
Wanderer, a 3D arcade game in the 
Elite mould. 

The game is supplied with a pair of 
red and green glasses of the type you 
get when you go to see a 3D film at 
the cinema. When viewed through the 
glasses, the out of register images on 
the screen combine to produce a 
remarkably realistic 3D effect. The 
result is quite stunning. Against a 
backdrop of stars, seemingly far in the 
distance, ships zoom out of the 
screen, turn, and disappear off to one 
side. The control panel is cleverly 
made to appear as though it extends 
out of the screen into your living room. 

The other programs in the 
Pyramide range are Nucleon, Painter, 
Remember, Turtle Logo, and Othello. 
They are all available by Mail order 
from Rio Promotions Ltd, 28 Waverly 
Grove, London N3 3PX. 01-349 2764. 
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SIDES 


We continue our look at printers with a 





review of the prestige Brother M-1509- 
and other less expensive options. 


AT AROUND &460, the Brother M-1509 is scarcely the 
cheapest of printers likely to be attached to the QL — 
but it is no.ordinary printer. With features such as 180 
characters per second, near letter quality, optional 
tractor feed and 136-column print width, it is likely to 
prove an attractive option to businesses and anyone 
who makes extensive use of Abacus. 

There is little to fault in this printer's design. The 
two-tone casing has five colour-coded microswitch 
controls on the front panel of the type common on 
photocopiers. Three are the familiar on-line, line-feed 
and form-feed switches. The remaining two are used 
to select NLQ and the paper type, which can be either 
continuous, single-sheet or a cut-sheet feeder. 

In operation, the printer performs admirably and 
other design features not at first apparent come to 
light. It has RS232 and parallel interfaces, so connect- 
ing it to the QL occasions few problems. The power 
supply and RS232 lead plug in on opposite sides of the 
machine towards the front. At first sight that looks 
rather strange, as well as occupying more desk space, 
but it leaves the paper path free of interference. 

Another unusual feature is the tractor feed, which 
pushes the paper through rather than pulling it 
Perhaps it was surprising that the Brother refused to 
chew up anything, despite some encouragement on 
our part. Had we been successful the printer would 
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have ceased operating and turned on the check light 
on the front panel. That is a very useful feature for 
someone who has reams of hard copy to produce but 
lacks the time or inclination to play babysitter to the 
printer all day. 

Next to column width, probably the most important 
consideration for most people is print quality. In draft 
mode, the Brother produces fairly unremarkable dot 
matrix text at 180cps. In NLQ mode the speed falls to 
45cps, still impressive when compared to daisywheel 
output and faster than most other dot matrix printers 
offering NLQ. Perhaps because of the increased speed, 
near letter quality is not all you might expect. The print 
is improved sufficiently so that the individual dots 
which make up each character become indiscernible, 
but the characters are not printed cleanly. The result 
looks much like the product of a typewriter with a 
worn-out ribbon. 

For those for whom high-quality printing is high on 
the list or priorities there are other options. Bold, 
underlined, italic, condensed and enlarged print can 
be produced under software control, i.e., from Quill. 
Additionally, plug-in printed circuit boards are avail- 
able which provide extra fonts. One of them, the 
LQ200, provides 16K of extra buffer in addition to the 
resident 3K of the M1509. That can be used either for 
your own downloadable character sets or as an 





enlarged print buffer to free the QL for other opera- 
tions while printing continues. 

It is the first Brother printer to be aimed exclusively 
at the business end of the market and undoubtedly it~ 
will appeal to those who require high-volume, reliable 
output combined with flexibility — at a price. 

Those who do not have more than £400 to spend on 
a printer will be interested to learn of the launch of two 
less exorbitantly-priced Brother models, the 1109 and 
1409. 

At a recommended price of £385, but probably 
cheaper depending on where you buy it, the 1409 
offers virtually all the features of the 1509 without the 
wide carriage. Like its twin, it has RS232 and Cen- 
tronics ports, built-in tractor feed, and a socket for 
plug-in fon/RAM boards. 

Large on features, small on price, is the claim made 
for the £225 Brother 1109. In terms of specification it 
differs little from the many other dot matrix printers to 
have appeared in the last six months, That is to say it 
features standard 80-column text width, 100cps, built- 
in tractor feed, NLQ at 25cps, three typestyles and 12 
international character sets. It seems that it is now 
standard practice for Brother to fit all its printers with 
an RS232 port in addition to the Centronics and the 
1109 is no exception. 


Sinclair/QL World April 1986 


“Cro Bl 





Began a a Oot LE 





Ee NY 1A GN MebaN ji 


SYSTEM RENAME «= UIEW «= GUSTO «BACKUP. «SINFO 








Ss Y SS. Tee 


ICE makes all of the day to day housekeeping operations 

on your QL easy. ICE uses pictures (icons) to represent the 

functions and programs you are using. ICE is extremely 

powerful and can take action on multiple files, saving you 
typing commands over and over again. Most of all, ICE is very 
easy fo use and can be managed by almost anyone! 


ICE complete system £59.95 






















ICE Toolkit is a library of extensions to Superbasic 
that allow you to use many of the ICE features in your 
own programs. Mouse cursor, pop-up menus, alert 
boxes, icons, in fact most of the ICE routines can 
easily be incorporated into your programs giving 
them that professional appearance. 


ONLY £9.95 


- 3D 


Lene! 


Amazing! BJ is off again, this time in a 3D 
maze that will pose a challenge to alll. 
Over 75 screens of 3 dimensional action, 
as BJ battles against fireballs, energy 
zappers, lazers and even giant Chess 
pieces! Definitely a must! 

















© The Belurm Drunx has died leaving BJ 
helpless in the caverns. Good Heavens Abovel!! 
Matilda the magic fairy has agreed to let BJ go 
providing he collects all the miracles from the 
caverns. A formidable task awaits you as you 
join BJ in this mega sequel to QL Caverns 


ONLY £10.95 


©))@ee) Unravel secrets of a giant city as 
you steer your craft through over fiffy screens of 
danger and excitment. Superb value for 


aS ONLY £9.95 


500% This is one of the best muncher 
games we have seen on a micro! Full features 
include multiple screens, fruits, sliding doors, 
swing doors and much more! 
Joystick/cursor/sound. 
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ONLY £10.95 


“op per =agle Two great machine code 
QL games for the price of one! Zapper the 
snappy arcade game is now joined by 


“Defender”’ style eagle. ONLY £9.95 


Our Software Success Means 
Lower Prices for YOU 





Zapper/Eagle 


Other programs If you require other Eidersoft programs not 
mentioned in this advertising please telephone for assistance. 
QSPELL £19.99+51 p&p ARCHIVER £18.954+51 p&p 

IMPACCT INTEGRATED ACCOUNTING £179.95 


: pam Trade enquiries welcome phone 0708 852647 administration. 
: | ae. .Credit Cards — phone 0708 851099 
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ICE comes on EPROM cartridge that 
plugs into the cartridge ROM port at 
the rear of the QL. 

ICE uses next fo no user RAM! — ICE is 
always available to the user instantly 
no need to load from microdrive or 
disk ICE is fully compatible with 
the Psion™ applications and most 
QL commercial software ICE is 
fully compatible with Superbasic 
programs and can be called from 
Superbasic ICE is fully compatible 
with microdrives, disk drives and 
RAM disks © ICE can be used in 
conjunction with the cursor keys, a 
joystick or a mouse ICE is 
multitasking Boot into ICE or boot 
program TV/Monitor 


ony £24.95 


CHOice is a powerful multitask editor that allows you 
fo run several programs simultaneously. It can be used to 
multitask the four Psion packages as well as many others. 
Most important of all, CHOice gives you direct access to 
ICE from other programs so that housekeeping need not 
mean leaving your chosen program. CHOice comes with 
RAM DISK software, a name and address database for 
Archive and a Quill/Archive mailmerge facility. 


ONLY £14.95 


Artice is the ICE drawing program. Artice works in both 
TV and Monitor mode. Artice features freehand drawing 
with a full screen, choice of brushes, colour change, 
texture fill, magnify and reduce, pop-up and pull down 
menus, mouse style cursor, rubber, rubber band lines, 
circles etc, and many other features. It is fully multitasking 
and can be used with the CHOice software if required. 


ONLY £412.95 


: ot QL £19.95 The ultimate in 
Control. _ 

Quickshot QL £12.95 Standard. 

QL Convert Lead for ATARI Joysticks 

£5.49 

* £1 Discount if purchased with 

program. 
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DU SORIOULEY, Sos tte ec cc tteae tae nt ethacsne anes £185 Expanderam SUD «. criss caessicavessassneostsntsasencssenees £120 
EXINGDRUICCOGIN. cecrtivscrctietecienccnsstucneseoeaseeverntt £90 GUNS IBC IE... o-..sceceechectansesosncevealtttesconteatteect £78 
DISGIF & SINGIG S32" OVE sesvcsscciXeccsecceccscccoanses £180 Dist IF G32" GUA ANIVG: £...... cies scerovaedeestoreeentess £275 
Printer ster aee vsscas.ctssvissivcvcssscevesconsssssteeouvewerss £26 JOYSTICK: AGAIN oss iiesssstibsccsscasestantecsacoaoynstetseets £4.50 
QUICKSHOt I JOVSUCK .cisiscicccncaiessasdondssssinsacgusetetioess £8 ASCAGC: JOVSUGK sess. cssisoceseossscgzcviavacyssevanseasenes £14.50 
Pro'S0G0: JOVSHGK -. snesccteceqacsvocBectieretyyosscenscers £15.50 Microdrive Cartridges ................ccccceseeseeseeeees £1.80 
UXBO PHGl: Cc ITUCFACE:.......srassasesversssvosspebersnonss £265 INGANRSTONITN SOX 6 <sensaos<ssssivsesusnscssvesscsfeessnudeceucscsmere £5 
TAB SDI care scevevenenenevenyesbocessed te senrsseey £2.30 EPR OMIPIGOTHITIINGN ..necorenoesteoetoueasesecessrvactrerssarees £75 
EPROM Exase@ Wit tHIMGL, «......:.0cccccccsetseccssesenesnis £22 ERROMISOCKOU cc csessrressetecsensgnesevtaliscerersnetes teeters cote £6 
TGK EPROM GRID) ccsssssscscsosscetsoatzasesccessesoontzsease £4.50 EXBOIDOON |. 5. ..ctac Stes ncttea nels cethese ctetens eee £5 
Sin. dis Stonagelbox sta ciic.hncntiter ken. £3 QL Advanced User Guide .................c.:csceseseeee £14.50 
QL Technical Guiee sx. scapcescassavssccsvecsscrcraconnsonren £14 Assorted books at over 60% off 


Also a large range of Disc systems, Printers, Joysticks and all the latest software 
releases. Phone for more details. 


UK: Add 50p postage to orders under £5 
Europe: Deduct 10% from all software. Add £1.50 postage + 40p for each program. 
Hardware prices as above + £1.50 postage. 
Outside Europe: Add £5 postage. 


MPC Software 
72 Julian Road, West Bridgford, Nottingham NG2 5AN 
Telephone: (0602) 820106 

































For signs, pictures, advertisements, banners and notices. 
Letters any size, any shape, any colour, any stipple, any mode. 
Easy designing & editing. Font editor. 5 fonts included. 


25, TRINITY RISE, LONDON SW2 2QP. 





For the first time, a 
game which uses 
the full power of the 
QL spatial effects, 
combined with fast 
animation. The 
P | : object will leap out 

alae 0 Se ‘ 7 of the screen 
: | thanks to the 











PYRAMIDE 





ONLY AVAILABLE 
BY MAIL ORDER. 
ENCLOSE CHEQUE 
MADE PAYABLE supplied with the 
TO: game 


ys 


RIO PROMOTIONS LTD. Dept QL, 28 Waverley Grove, London N3 3Px. Tel: 01-349 2764 
TRADE ENQUIRIES WELCOME 
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POINT TO POINT 


Imagine the loading screen of a game. 
The company name grows out of the 
screen, then collapses, twisting and 
changing into the company logo. 
Changing one shape into another need 
constitute only a change in size, so pic- 
tures of objects can be made to 
increase and decrease in size, giving a 
three-dimensional effect. 
Alternatively, making small changes 
in the data will allow the routine to 
work as a cartoon animator. All you 
need to do is specify the first and last 
picture in each movement sequence 
and the routine will fill in all the posi- 
tions inbetween automatically. You 


can specify how many of those steps 


there will be. There are many other 
possible uses, but we will leave those 
to your imagination. Let us see how the 
routine works, 

The first program you need to type- 
in is Listing One. It is the set-up pro- 


gram which reads the shape data from. 


the DATA statements starting at line 
700 and converts it into a byte file. That 
is then saved to Microdrive or disc for 
use by the machine code routine. The 
first four numbers read are SHAPES, 
POINTS, LINES and STEPS. 

SHAPES: This is the number of 
shapes in a complete sequence. For 
instance, if you wanted to convert a 
triangle into a square, which then 
changed into a pentagon, there would 
be three shapes. 

POINTS: This tells the computer the 
maximum number of points in each 
shape. In the preceding example, you 
would need only three points for a 
triangle but five for a pentagon, so that 
value should be five. 

LINES: The maximum number of 
lines which will ever be drawn. Again, 
that is five in our simple example. 

STEPS: When you define different 
shapes, such as a triangle and a square, 
the computer needs to know how 
many in-between positions you want 
in the on-screen animation sequence. 
The machine code program can work 
down to an accuracy of 1/256th of a 
screen pixel, so effectively you can 
have as many steps as you like. Bear in 
mind that the more steps you have the 
slower the sequence will appear on 
the screen. Somewhere between 15 
and 50 is usually fairly good. 
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The next set of numbers gives all the 
data for the various shapes. This 
should be in the form: 


$1X0,510,s1x1,51y1,51x2,51y2,51x3 
S1y3, ..., S1xP,s1yP 
$2x0,520,52x1,S2y1,S2X2,S2y2,52x3 
S2y3,..., S2XP,s2yP 


) 


) 


SQX0,SQY0,SQX1, SQY1,SQx2,SQy2, 


SQX3,SQY3, . . ., SOxP,SOVP 


where: SN = shapenumberN. 


xN = x-co-ordinate of 
point N. 

yN = y-co-ordinate of 
point N. 

Q = = Totalnumber of 
shapes. 

P+1 = Totalnumber of 
points 


Machine code animation 


without an assembler? 


John Masterson points 





LISTING ONE 


LOOeECLS 
110 initialise_ memory 


120 read_shape_data 

130 read_line_data 

140 calculate_offset_data 
150 save_shape_file 

160 : 


170 DEFine PROCedure initialise_memory 
180 READ n_shapes,n_points,n_lines,n_steps 
190 memory=(6*n_shapes*¥*n_points)+(8*n_points)+(3*n_lines)+24 


200 start=RESPR(memory ) 

210 shapes=start+2u4 

220 POKE_W start+16,n_shapes 
230 POKE_W start+18,n_points 
240 POKE_W start+20,n_lines 

250 POKE_W start+22,n_steps 


260 lines=shapes+6*n_shapes*n_points+8&¥*n_points 
270 END DEFine initialise_memory 


280 : 


290 DEFine PROCedure read _shape_data 


300 FOR s=0O TO n_shapes-1 
310 FOR p=0O TO n_points-1 
320 READ x%,y% 


330 POKE shapes+6*n_points*¥s+6*p, x% 
340 POKE shapes+6*n_points*s+6*p+1,y% 


350 END FOR p 
360 END FOR s 


370 END DEFine read_shape_data 


380 


390 DEFine PROCedure read_line_data 


400 FOR 1=0 TO n_lines-1 
410 READ p1l%,p2%,col 

420 POKE lines+3*1,p1% 
430 POKE lines+3*1+1, p2% 
440 POKE lines+3¥*1+2,col 
450 END FOR 1 


460 END DEFine read_line_data 


470 


480 DEFine PROCedure calculate_offset_data 


490 FOR s=0 TO n_shapes-1 
500 FOR p=0 TO n_points-1 


510 sh=(s+1) MOD n_shapes 


520 x1=PEEK(shapes+6¥*n_points*s+6*p ) 
530 y1=PEEK(shapes+6*n_points*s+6*p+1 ) 
540 x2=PEEK(shapes+6¥*n_points*sh+6*p) 
550 y2=PEEK(shapes+6*n_points*sh+6¥*p+1 ) 


560 x=(x2-x1)/n_steps 
570 y=(y2-y1)/n_steps 


580 POKE_W shapes+6*n_points*s+6*p+2, INT(256*x) 
590 POKE_W shapes+6*n_points*s+6*p+i, INT(256*y) 


600 END FOR p 
610 END FOR s 


620 END DEFine calculate_offset_data 


630 


640 DEFine PROCedure save_shape_file 


650 INPUT \"Filename (incl. 
660 DELETE f$ 
670 SBYTES f’$%,start,memory 


680 END DEFine save_shape_ file 


690 : 


device)? ";£$ 


700 REMark SHAPES, POINTS, LINES, STEPS 


710 : 
720 DATA 3,18,15,30 
730 ; 

740 REMark SHAPE DATA 
750 : 


760 DATA 120,100,120,100,120,100,120,100,120,100,120,100 
770 DATA 120,100,120,100,120,100,120,100,120,100,120,100 
780 DATA 120,100,120,100,120,100,120,100,120,100,120,100 


‘790 


where: Start/End Points refer to the 
point co-ordinates given in the 
shape data section. So, “0,1,7” 
would specify that point zero 
— 1.e., x0,y0 — is connected to 
point one —i.e., x1,y1 —with 
a line of colour seven — ie., 
white. 


Once you have typed and saved the 
program given in Listing One, try run- 
ning it. If everything works properly, 
the computer will prompt you for the 
name ofa file. That will be the name of 
the file containing all the shape data for 
later use by the TRANS procedure. The 
data given in the listing will cause the 
letters QL to appear out of the screen, 
change into an impossible-looking 
triangle, then disappear back into the 
centre of the screen. Consequently, 
saving the data as ‘mdvl_qltri_data’ 
seems appropriate. 

The next stage is to type-in the 
machine code for the TRANS proce- 
dure. A SuperBasic hex-loader pro- 
gram is given in Listing Two. Just type it 


LISTING TWO 


100 CLS 
110 start=RESPR(650) 


120 PRINT"Loading Hex...":hex_load start 


130 CALL start 
140 STOP 

TSO as 

VEO 8 


1000 DEFine PROCedure hex_load(start) 


LOZTO ¢$ 
DEFine FuNction decimal(x) 


as shown, then run it. It will define 
TRANS automatically as a resident pro- 
cedure, usable from SuperBasic, much 
the same as any other SuperBasic pro- 
cedure. If you are told that the 
‘checksum is incorrect’, then you have 
probably made an error when typing- 
in the DATA starting at line 2000. When 
the program has run, typing: 


sbytes mdv1_trans_obj,start,650 


will save the machine code separately 
to Microdrive one. Thus, rather than 
having to load and run the SuperBasic 
loader every. time you want to use the 
TRANS procedure, all you need type is: 


a=respr(650) 
Ibytes mdv1_trans_obj,a 
call a 


Anybody with an assembler, may 
prefer to use the assembly code listing 
three when entering the machine 
code. 

Finally, we are ready to try the pro- 
cedure. Having run the hex-loader, 
without turning off the machine, type 
‘NEW and enter the program shown in 


RETurn CODE(h$(x) )-48-7*(h$(x)>"9") 


END DEFine decimal 


byte = 0: 


checksum = O 
RESTORE 2000 
READ h$ : 


IF h$="*" THEN GO TO 1240 
IF LEN(h$)<>2*INT(LEN(h$)/2) THEN 


PRINT"Odd number of hex digits in: ":h$ 


STOP 
END IF 
FOR b=1 TO LEN(h$) STEP 2 


hb=decimal(b):1b=decimal(b+1) 


IF hb<O OR hb>15,OR 1b<O OR 1b>15 THEN 


PRINT"Illegal hex digit in: 


STOP 
END IF 
POKE start+byte,16*hb+l1b 
checksum=checksum+16¥*hb+1b 
byte=byte+1 
END FOR b 
GO TO 1080 


"shns 


READ check 
IF check<>checksum THEN 

PRINT"Checksum incorrect. Recheck data." 

STOP 
ELSE 

PRINT"Checksum is correct." 

PRINT"Data entered at: ";start 
END IF 
END DEFine hex_load 
DATA "30780110", "43FA0006", "LEGO", "UE75™", "0001", "OOOE", "O05", "5452014 E53" 
DATA "000000000000", "30780118", "4E9O", "6600004A","70F1", "OCU3Z0004" 
DATA "66000040", "24769800", "2E369804", "5387", "UGFAO2Z34"."1976980B0005" 
DATA "3976980E0006", "61000024", "226A0008", "302A0012", "5340", "Hagg" 
DATA "51C8FFFC", "2652", "610000UC", "51CFFFF8", "6100009E", "4280", "HE75" 
DATA "248A", "069200000018", "302A0012", "COEA0010", "E388", "2200", "E388" 
DATA "DO81", "25520004", "DIAAOOOL", "302A0012", "48CO", "E588" 
DATA "256A000U0008", "D1AA0008", "256A0008000C", "D1 AAOO0OC" 
DATA "HET75", "382A0010", "5344", "2AUB". "26UD", "6100002E", "3C2A0016"™, "5346" 
DATA "61000044", "362C0006", "34U3COFFF", "51CAFFFE", "51 CBFFF6", "61000030" 
DATA "6100009E", "51 CEFFF6", "51CCFFD2". "4E75", "302A0012", "5340", 


DATA 98,160, 80,40,116,40,98,160,116,40,98,160 
DATA 116,160,100,120,100,100,116,160,100,100,116,160 
DATA 124,40,124,160,160,160,160,160,132,144,124,40 


DATA 142,160, 80,160, 80,144,137,144, 84,132,134,132 
DATA 84,132,116,40,124,40,92,132,127, 52,100,132 
DATA 127,.52,156,148,150, 160,123, 65,142, 160,119,79 


REMark LINE DATA 
~4,1,4,5,1 


-10,2,10,11,2 
15,.3,14,16,3,16.17.3 





"2A6A0004"' 
. . ® . e ge . . ° : DATA "224B","3A11", "3005", "L205", "SAC5", "ELUE", "3ZAC6", "5C89", "51 CB8FFFO" 
Above is the principal SuperBasic listing for operating our simple animation DATA "LE75". "Z06A000C", "226A0004"". "2A6A0008", "3A2ZA0014", "5345", "U2h2" 


demonstration. It’s worth typing and running before proceeding with Listing two. PA Spc oa IST da Nes Oe MI aie a bl 


DATA "197530000002", "197530020003", "196CO0050004", "U8E7FFOM" 
DATA "61000054", "UCDF20FF", "18B12000", "197120020001", "197130000002" 
DATA "197130020003", "19580004", "U8E7FFOL", "6100002E", "UCDF20FF" 


All co-ordinates are given as num- 
bers in the range 0 to 255, using the co- 
ordinate system shown in figure one. 
In the eight-colour mode for which the 
routine is designed that will allow you 
to specify co-ordinates down to the 
nearest pixel. 


10 


Finally, you must tell the computer 
which lines are joined and in which of 
the eight colours they are to be drawn. 
That is given as a list of lines, with each 
line being defined by: Start Point, 
End Point, Colour 


DATA. "51 CDFFAU", "E75", "302A0012", "5340", "206A0008", "226A000L" 
DATA “2AUB", "548D", "20D1", "321D", "D359", "321D", "D359", "51C8FFF2" 


DATA "4LE75", "6100008E", "263000010001", "122C0002", "9214", 


"64000006", "4401" 


DATA "4403". "4843", "14200003". "942C0001", "64000006", "4402", "4403". "1001" 
DATA "8002", "6700005C", "2803", "1002", "BO01", "6500000E", "O2840000FFFF" 
DATA "C342", "60000008", "O284FFFFOOOO", "4247", "1E01", "5307", "1C01", "E20E" 
DATA "1006", "DOo2", "65000008", "'BO01", "6500000C", "9001", "1C00", "2A03" 
DATA "60000006", "1C00", "2A04", "DB2CO001", "4845", "DBI", "48E77C00" 

DATA "6100000E", "4CDFOO3E", "51 CFFFCE", "4280", "4E75", "1214", "1801" 

DATA "142C0001", "1A02", "162C0004", "E20C", "O244007E", *2A7C00020000" 

DATA "DACL", "EFUD", MDACH”, "EDu4UB" ‘ "3803", "EFUC", "o2u48000", "924300C0" 
DATA "s6ua", "C23C0003", "E309", "3U3C7F3F", "EO7A", "“EO7B", "C555", "8755" 
DATA "4E75", "OOODDD0000000000", "*", 43625 
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LISTING THREE 


LOC 


g009° 


0000 
0004" 
0008" 
000A" 
O00’ 
GOOE* 
0010" 
0011" 
0016" 
0018" 
OO1A® 


oo1c’ 
0020° 
0022' 
)026' 
0028° 
0020’ 
0030' 
6034' 
0038" 
003A’ 
DOSE’ 
j044' 
b04A' 
OO4E' 
0052 ' 
0056" 


0058" 


Q05A' 


O0SE’ 
0060° 
0064" 


0068" 


006C' 


QObE 


g070' 
0072' 


0078° 
007C' 
080° 
0082 
0084" 
0086" 
0088" 
008C* 
0090° 
0094' 
0096° 
0098 
OO9E* 
OGA2' 
OOAB’ 
OORT’ 


QOAE’ 
00B2' 
00B4° 
00B6' 
O0B8 
OGBC’ 
00C0" 
00C2' 
0006’ 
OOCA’ 
OOCE’ 
00D2' 
00DE' 
OODA’ 
QODE’ 
QOE2 
OOE6® 


OOER 
OOEC’ 
OOEE’ 


OBJECT 


3078 0116 
43FA 0006 
4E90 

4€75 

0001 

GOGE 

05 

5432 414E 33 
0000 

0000 

0000 


3078 0118 
§£90 

6600 004A 
70F i 

0043 0004 
6600 0040 
2476 9800 
2E36 9804 
3387 

ASFA 0234 
1976 9808 9005 
3976 F80E 0006 
6100 0024 
226A 0008 
302A 0012 
3340 

4299 

S1C8 FFFC 
2652 

6109 004C 
SICF FFFS 
6100 OO9E 
4280 

4ETS 


248A 
0692 0000 9018 


302A 0012 
COEA 0010 
£388 
2296 
E388 
DdB1 
2552 0004 
DiAA 0004 
302A 0012 
4800 
E588 


256A 0004 0008 


DIAA 0008 

256A 9008 0000 
DIAA O00 

4E75 


382A 0010 
5344 

2A4B 

2640 

6100 002E 
302A 0016 
5346 

6100 0044 
3620 0006 
3430 OFFF 
SICA FFFE 
SICB FFF6 
6100 0030 
6100 009E 
SiCE FFF6 
SICC FFD? 
4E75 


JO2A 0012 
3546 
ZA6A 0004 


STMT 


| 
2 


3 
4 
se] 
6 
7 
8 
9 


10 
if 
12 
13 
14 
15 
6 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
4 
42 
43 
44 
45 
46 
47 
49 
49 
50 
51 
52 
53 
54 
55 


2 


56 
57 
58 
59 
60 
bl 
42 
63 
64 
65 
6 
67 
68 
49 
70 
7i 
72 
73 
74 
75 
76 
77 
78 
79 
80 
Bi 
82 
83 
84 
85 
86 
87 
88 
89 
90 
1 
92 
93 
94 
95 
96 
97 
98 
99 


SOURCE STATEMENT 
n63 
Ps 


# This will include the new orocedure TRANS ioc,reps,pap,dly 


* where: loc = start of picture data 
t reps = number of repetitions 
* pap = paper colour (for rubbing out lines) 
t dly = delay between shapes (50 = 1 séc. approx.) 
t 
# First add the procedure 
. 
MOVE.W $110,A0 $110 = BP. INIT = Add proc/func 
LEA.L  PROC,AI Link in orocedure 
JSR (AQ) 
RTS 
PROC DC.W i Number of procedures 
DC.W TRANS-# Relative location of oroc 
DC.B 5 Length of proc name 
oC.B ‘TRANS ° Nage of procedure 
DC.W Y) End of orocedures 
pc.W 0 Number of functions 
DC.4 0 End of functions 


t 


# This is the TRANS procedure #t##ttteeeeetteeeeetteet 


+ 
# Get the procedure parameters 
+ 
TRANS MOVE.W $118,A0 
JSR (Ad) 
BNE EXIT 
MOVEQ #-15,D0 
CMPI.W #4, D3 
BNE EXIT 
MOVE.L  O(A6,AL.L),A2 
MOVE.L 4(A6,A1.L),D7 
SUBB.L = #1, D7 
LEA.L = TABLE, A4 
MOVE.B 
MOVE. W 
BSR CALCADDR 
MOVE.L  8{A2),Al 
MOVE.W 18{A2),D0 
SUBQ.W = #1,D0 
CLR.L (Al) + 
DBF DO, CLRNEXT 
MAINLOOP MOVE.L  {(A2),A3 
BSR SEQUENCE 
DBF D7, MAINLOOP 


CLRNEXT 


BSR DRAWSH 
CLR.L = oO 
EXIT RTS 


t 


11(A6,AL.L).5(A4) 
14(A6,A1.L),6(A4) 


$112 = CA.GTLIN (Jonas) 


Exit on error 

DO = Parameter error 
Should be 4 parameters 
Branch if not 

A2 = Start address of data 
D7 = Number of repetitions 


A4 = Plotting Table 
Get Paper colour 
Get DELAY period 


Al = NEXT 

D0 = n_points 

Di = n_points - | 

Clear the NEXT table, 
for n_points 

A3 = Present SHAPE 


Draw complete final shape 
Signal no errors i 
Return to SuperBASIC 


# Calculate and store the table addresses 


t 


CALCADDR NOVE.L 2, (A2) 
ADDI.L #24, (A2) 
MOVE.W 1B(A2),D0 
MULU =: 16 (2), DO 
LSL.L -#1,D0 
MOVE.L D0,D1 
LSL.L #1, D0 
ADD.L DL, DO 
MOVE.L  (A2),41A2) 
ADD.L 0, 41A2) 
MOVE.W  18(A2),DO 
EXT.L 0 
LSL.L #2, D0 
MOVE.L  4(A2),B(A2) 
ADD.L D0, 84A2) 
MOVE.L @(A2),12(A2) 
ADD.L D0, 1242) 
RTS 


(A2) 


Start of ‘data’ 
{A2) = ‘d 


ata’ + 24 


won 


DO = n_points 
DO = n_points * n_shapes 
DO = 6 # DO 


" 


PREV = SHAPES » 
PREV = SHAPES + DO 
DO = n_points 

DO - Lona 

DO = 4 * n_points 
NEXT = PREV 

NEXT = PREV + D0 
LINES = NEXT 

LINES = NEXT + DO 
Return to MAINLOOP 


# This is the main drawing loop. It will follow through 
* one coaplete sequence before returning to the 
# MAINLOOP, which checks the number of repetitions. 


+ 
SEQUENCE MOVE. W 
SUBQ.W 
MOVE.L A, A5 
MOVE.L A5,A3 
BSR UPPTS 
MOVE.W  22(A2),Dé 
SUBO.W #1, D6 
BSR DRAWSH 
MOVE.W (A4) D3 
DELAY  MOVE.W #S0FFF,D2 
WOT DBF D2, WAIT 
DBF D3, DELAY 
STEPS BSR DRAWSH 
BSR TRANSH 
DBF Dd, STEPS 
DBF D4, NSHAPE 
RTS 


16{A2), D4 
#1,D4 


NSHAPE 


z 


D4 = n_shapes 
D4 = n_shapes - 1 
For first loop (Next instr) 


A3 = Present SHAPES 
Dé = n_steps 
D6 = n_steps - | 


Draw main shape for delay 
D3 = User delay 
D2 = Set delay 


Return to MAINLOOP 


# Update the PREY table for start of next shape 


t 


UPPTS  MOVE.# 18(A2),D0 
SUBG.W | #1,D0 
MOVE.L  4(A2),A5 
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DO = n_points 
DO = n_points - | 
AS = PREV 


LOC 
00F2' 
OOF 4’ 
O0F6" 
O0F8’ 
OOFA’ 
OOFC® 
OOFE’ 
0100° 
6102" 
0106" 


0108" 
0100" 
O110° 
O114" 
0118" 
OL1A' 
o1ic’ 
OLIE’ 
0120° 
0122° 
0124° 
0126' 
012A" 
0130° 
0136’ 
O13" 
0142° 
0146" 
014A’ 
O14E° 
0152' 
0158" 
O15E’ 
0164" 
0168" 
0160 ' 
0170° 
174" 
0178" 


OL7A° 
O17E° 
0180° 
0184" 
0188" 
H18A° 
018C’ 
O18E° 
0190" 
0192’ 
0194" 
0196" 
OFA’ 


O19C’ 
O1A0" 
O1Ab' 
O1AA’ 
O1AC’ 
O1BO' 
O1B2° 
O1B4" 
0186" 
O1BA’ 
OLBE’ 
O102' 
0104" 
0106’ 
O1CB’ 
O1CA’ 
O1CE’ 
GiDd' 
01D2° 
O104' 
01D8' 
Q1DE' 
O1E0' 
O1E4’ 
O1EA’ 
O1EC* 
O1EE’ 
O1FO’ 
O1F2° 
O1F4’ 
O1FS’ 


OBJECT 
2248 
SALI 
3C05 
4205 
SACS 
E14E 
SAC 
9089 
S1CB FFFO 
4€75 


2068 000C 

226A 0004 

2A6A 0008 

3AZA 0014 

3345 

4242 

1418 

E54A 

4243 

1618 

ES4B 

18B5 2000 

1975 2002 0001 
1975 3000 0002 
1975 3002 0003 
196C 0005 0004 
48E7 FFO4 

6100 0054 

4CDF 20FF 

1881 2000 

1971 2002 0001 
1971 3000 0002 
1971 3002 0003 
1958 0004 

48E7 FFO4 

6100 002E 

ACDF 20FF 

SiCD FFAS 

4£75 


302A 0012 
5340 
2068 0008 
226A 0004 
2A4B 
5480 
2001 
321D 
D359 
321D 
D309 
S1C8 FFF2 
4€75 


6100 O08E 
263C 0001 9001 
122C 0002 
9214 

6400 0006 
4401 

4403 

4843 

1420 0003 
9420 6001 
6400 0006 
4402 

4403 

1001 

8002 

6700 605C 
2803 

1002 

BOO! 

6500 GOOE 
0284 0000 FFFF 
C342 

6000 0008 


0284 FFFF 0000 


4247 
1E01 
5307 
C01 
E20E 
1006 
D002 


STNT 
100 
101 SETPRE 
102 
103 
104 
105 
106 
107 
108 
109 
110 # 


SOURCE STATEMENT 

MOVE.L AS, Al 

V MOVE.W  (A1),D5 
MOVE.W  D5,D6 
CLR.B DS 
MOVE.W DS, (AS)+ 
LSL.W 4#8,D4 
MOVE.W D6, (AS)+ 
ADDO.L #6, At 
DBF DO, SETPREY 
RTS 


Ail = SHAPES 

DS = YXXXXXXX YYYYYYYY 
D6 = XXXXXXAY YYYYYYYY 
DS = XXXXXXXX 00000000 


Db = YYYYYYYY 60000000 


Al 


Next point 


iil * This routine will erase the last shape draw, and draw 


AO = LINES 

Al = PREV 

AS = NEXT 

DS = n_iines 

DS = n_iines - } 
D2 = 0 

D2 = No. point one 
02 = 4 # D2 

D3 = 0 

D3 = No. point two 
D3 = 4# 03 

Get NEXT. M1 

Get NEXT. Y1 

Get NEXT.X2 

Bet NEXT. ¥2 

Colour = Paper 


Rubout old line 


Bet PREV. Xi 
Bet PREV.Y1 
Bet PREY. X2 
Get PREV.Y2 
Bet line colour 


Draw new line 


then add the step 
drawing. 


iY 


n_points 
= n_points - } 

AQ = NEXT 

Al = PREV 

AS = SHAPES 

AS = SHAPES(dX) 

NEXT point = PREV point 

Di = dX increment 

Add dX increment 

Di = d¥ increment 

Add dY increment 


in Colour. 
= Yi 
= ¥2 


Coordinates are from (0,0) = Top-Left, and are in 


specify individual 


Plot first point 
D3 = Diagonal increments 


Di = X2 

Di = X2 - Xl 

Branch if X2>=X1 

Di = Xt - 12 

D3(X) = -1 

Get D3(¥) in low word 
02 = Y2 

D2 = ¥2 - ¥1 

Branch if ¥23=Yi 

D2 = Yi - Y2 


Baty) = -i 
Check for point oiot. 
and return if both 


are zero 
D4 = Ver/Hor increments 
D2 = d¥ 


Compare dY-dX 

Branch if dX > dy 

D4 = OY 

Swap dX and dy 

D4 = XO 

Number of steps in olot 


Dé = Diff/2 for best iine 


DO = Laroest diff/2 


i12 + the next shape, one line at a time. 
113 # 

114 DRAWSH MOVE.L  12{A2),A0 

115 MOVE.L  4(A2),Al 

116 MOVE.L  8{A2),A5 

117 MOVE.W = 20(AZ),D5 

118 SUBG.W = «#1,05 

119 DOSHAPE CLR.W 02 

120 MOVE.B (AO)+,D2 

121 LSL.W #2, D2 

122 CLRAW DS 

123 MOVE.B- (AG)+,D3 

124 LSL.W #2, D3 

125 MOVE.B O{AS,D2.W), (A4)- 
126 MOVE.B 2(AS,D2.#),1(A4) 
127 MOVE.B  O(A5,D3.W),2(A4) 
128 MOVE.B 2(A5,D3.W),3(A4) 
129 MOVE.B = S{A4),4(A4) 

130 MOVEM.L DOQ-D7/A5,-(A7) 
131 BSR DRAW 

132 MOVEM.L = (A7)+,D0-D7/AS 
133 MOVE.B O(AL,D2.W), (A4) 
134 MOVE.B -2(A1,D2.W),1(A4) 
135 MOVE.B O(AL,D3.W),2(A4) 
136 MOVE.B =2{A1,D3.W),3(A4) 
137 MOVE.B (AG) +,4(A4) 

138 MOVEM.L D0-D7/A5,-{A7) 
139 BSR DRAW 

140 MOVEM.L = (A7)+,D0-D7/AS 
141 DBF DS, DOSHAPE 

142 RTS 

143 4 

144 # Copy the lines from PREV to NEXT, 
145 * increments for the subsequent 
146 

147 TRANSH MOVE.W 18(A2),D0 

148 SUBG.W = =6#1, D0 

149 MOVE.L  8(A2),A0 

150 MOVE.L  44A2),Al 

151 MOVE.L =A3,A5 

152 UPDATE ADD@.L #2,A5 

153 MOVE.L  {Al), (AQi 

154 MOVE.W © (AS)+, D1 

155 ADD.W =Di, (AL) + 

156 MOVE.W = (AS) +, D1 

157 ADD.W = D1, (AL) + 

158 DBF DO, UPDATE 

159 RTS 

160 # 

161 # Draws the line (X1,Y1) to (X2,¥2) 
162 # where: O(A4) = Xi: 1(A4) 
163 # 2(A4) = 12; 3tA4) 
164 # 4(A4) = Colour 
165 # 

166 * the range & to 255, This will 
167 # pixels in the 8-colour mode. 
168 # 

169 DRAW BSR PLOT 

170 MOVE.L  #$00010001,D3 
171 MOVE.B 2{A4),D1 

i72 SUB.B (4), D1 

173 BCC X2T0X1 

174 NEG.B =D 

175 NEG.B  =-D3 

176 X2TOX1 SWAP 3 

177 MOVE.B 3(A4), D2 

178 SUB.B = L4A4) , D2 

179 BCC Y2TO¥1 

186 NEG.B = D2 

181 NEG.B 903 

182 Y2TOY! MOVE.B 01,D0 

183 OR.B 02,00 

184 BEQ ENDDRAW 

185 MOVE.L 03,04 

186 MOVE.B 02,00 

187 CMP.B D1, D0 

188 RCS XBIG 

189 ANDI.L  #$0000FFFF,D4 
196 EX6 D1, D2 

191 BRA YBIG 

192 XBIG ANDI.L © #$FFFFOO00, D4 
193 YBIG CLRAW D7 

194 MOVE.B Di,D7 

195 SUBQ.B #1, D7 

196 MOVE.B Di, Dé 

197 LSR.B = #1, Dd 

198 NEXT MOVE.B 06,DG 

199 ADD.B 2,00 


DO = DO + smallest diff 


11 


LOC OBJECT 


O1FB8’ 6500 0008 RCS 
O1FC’ BO01 CHP.B 
O1FE’ 6500 000C BCS 
0202’ 9001 DIAGONAL SUB.B 
0204' 1000 MOVE. B 
0206" 2A03 MOVE. L 
0208' 6000 0006 BRA 
020C° 1006 HORIVERT MOVE.B 
G20E° 2A04 MOVE.L 
0210' DB2C 000! STEP ADD.B 
0214’ 4845 SWAP 
O216° DBI4 ADD.B 
0218° 48E7 7000 MOVEM.L 
O21C' 6100 O00E BSR 
0220’ 4CDF 003€ MOVER. L 
0224° SiC FFCE DBF 
0228° 4280 ENDDRAW CLRA.L 
022A’ 475 RTS 

t 


SOURCE STATEMENT 


DIAGONAL 
D1, D0 
HORIVERT 
D1,D0 

DO, Dé 

D3, D5 

STEP 

DO, Dé 

D4,D5 

D5, 1(A4) 

D5 

D5, (Ad) 
D1-D5, -(A7) 
PLOT 
(A7)+,D1-D5 
D7, NEXT 

DO 


Branch to diagonal step 
Branch if largest diff is 
greater to hori/vert step 
Subtract largest difference 
and store new result 
Retrieve diagonal increments 


Store new result 

Retrieve hor/vert increments 
Add dY to fi 

Get DS(X) 

Add dX to Xi 

Stack registers 

Plot next point 

Restore registers 

Reduce count, and loop 

No errors 


# PLOT will plot a point in 8 colour mode. The point 
* is specified by (A4.B)=K, 1(AS.B)=¥ & 4(A4.B8)=Colour. 


t 
i214 MOVE.B 
1801 MOVE. B 
1420 0001 MOVE.B 
1A02 MOVE.B 
1620 0004 MOVE.B 
E20 LSR.B 
" 0244 OO7E 228 ANDI.W 
2A70 0002 229 MOVE.L 
"pacts 230 ADDA.# 
EF 4D 231 LSL.W 
DACS 232 ADDA.W 
ED4B 233 LSL.W 
3803 234 MOVE.W 
EF4C 235 LSL.W 
‘ 0244 8000 236 ANDI.W 
0243 00C0 237 ANDI.W 
8644 238 OR.W 
C23C 0603 239 AND. B 
E309 240 LSL.B 
343C 7F3F 241 MOVE. W 
E27A 242 ROR.W 
E27B 243 ROR. 
" (959 244 AND. W 
8755 245 OR.W 
4€75 246 RTS 
247 
248 TABLE 
249 
250 END 


‘ 20008 D5.B 


No errors found in this Assembly 


LISTING FOUR 

100 b=RESPR(1000) 
110 
140 
145 
150 
160 
170 
180 


REPeat loop 
TRANS b.1,0.150 
CLS#2 
aS=INKEY$(0): IF 
END REPeat loop 


. LISTING FIVE 


700 REMark SHAPES, POINTS, LINES,STEPS 
710 : 

720 DATA 5,18,15,40 

730 : 

740 REMark SHAPE DATA 

750 : 


(A4) ,D1 
Di, D4 
1(A4) D2 
D2, D5 
4(A4) ,D3 
#1,D4 
#$007E, D4 
#520000, AS 
D4,A5 
47,05 
D5, A5 
#6,D3 
D3, D4 
#7, D4 
#58000, D4 
#50000, D3 
D4, D3 
#3, 1 
#1, D1 
#S7F3F D2 
D1,02 
D1,D3 

D2, (a5) 
D3, (AS) 


LBYTES mdvi_qitri_data,b 
PAPER#42,0:CLS#2: CLS#0 


ag=r 


Di = x-coordinate 
Copy to D4 

02 = y-coordinate 
Copy to DS 

D3 = Colour 

D4 = 04/2 for Bytes 
D4 = 0 to 126 (even) 
AS = Start of screen 
AS = AS + x-coord 

y = 12B# y 

AS = AS + y-coord 

D3 = R 68000000 


D4 = RGBO00NN 00000000 
= RO0000DD 00000000 
= 00000000 6B000000 

RO000000 GB000000 
0 to 3 
= 0 to 4 (even) 

D2 = OLULLL41 OO111111 

Rotate mask 

Rotate colour 

Mask screen 

OR colour to screen 

Return 


THEN GO TO 170 


760 DATA 255.0, 255.0, 255,0,255,0, 255, 0, 255.0, 255. 0, 255.0, 255.0 
770 DATA 255,0,255,0,255,0,255,0, 255.0, 255,0, 255, 0, 255,0,255,0 
780 : 


790 DATA 0,220,4,208, 27,188, 29.179, 38,185, 38, 203, 32, 200.9, 223.9,.214 
800 DATA 32,192,38,185, 27,188, 32,192, 32, 200,4,208,9, 214.9, 223,0.220 


810 : 
820 DATA 0,220.0.220,0,220,0,220,0,220,0,220,0,220,0, 220.0, 220 
830 DATA 0,220,0,220,0,220,0,220,0,220,0,220,0,220,0,220,0, 220 
840 : 


DATA 46,224,54,240,10,182, 21,177, 22,186, 23, 215, 28, 217,25, 
228,52,192 


DATA 0,220,0,220,0,220,0,220,0, 220,0,220,0,220,0,220,0,220 
DATA 0,220,0,220,0,220,0,220,0, 220, 0, 220,0,220,0,220,0,220 


REMark LINE DATA 


DATA oO. 1. 3010.2. 3.2030 30'S A Se De Se 5.6.3.6. Teele 17.3 
DATA 17.8.3.8.9.3.9.10,3,18,15,1,15,16,1,11.12,1,12,13,1 


DATA 0,160,10,150,17,.160, 26,153, 33,163, 31,275,41,175,44,190, 51,212 





Listing Four. Alternatively, type the 
three lines shown above, then enter 
Listing Four. When typing the listing, 
you will notice that TRANS is shown in 
upper case, even if you type it in lower 
case. That indicates that the TRANS 
resident procedure is in memory. Run- 
ning the program will show the ‘QL’ to 
‘impossible-triangle’ sequence. Note 
that line 110 loads the data file created 
by listing one, so you will have to 
change that line ifyou have called your 
file something different. 

When using TRANS you have to 
specify four parameters. If you do not 
do that you will receive a ‘bad parame- 
ter’ message. The form of the TRANS 
command is: 


TRANS loc,reps,bcol,delay 


loc: is the start location of the data to 
be used for the transformation. That 
means you could easily have the data 
for a number of transformations in 
memory at the same time and specify 
with which data you wish the routine 
to work when you call it. 

reps: gives the number of repeti- 
tions of the complete sequence exe- 
cuted before returning to Basic. 

bcol: is the background colour used 
when erasing previously-drawn lines 
in the sequence. In the foregoing 
example, we cleared the screen to 
black (zero), then used black lines. 


erences XG 





Unusual effects can be achieved by 
specifying different colour. Try run- 
ning the program again with TRANS 
b,1,7,150. That will leave a trail of white 
lines. 

delay: tells the routine how long to 
stop between each shape in the se- 
quence. Fifty gives a delay of approxi- 
mately one second. 

You will no doubt be able to think of 
plenty of ways to use the routine, but as 
a further example, the data given in 
Listing Five — which should replace 
the data given in Listing One — will - 
show a simple exploding missile ani- 
mation sequence. 


Technical Notes: 

The assembly code shown in listing 
three is fully-anotated, so should be 
reasonably easy to follow. If you wish 
to make the routine work in four-col- 
our mode, just change the PLOT 
routine at the end of the listing. When 
doing that, remember that horizontal 
co-ordinates will still be specified in 
the range 0 to 255. Changing that 
would require much more severe alt- 
erations. 

The DRAW routine is a fast line- 
drawing utility which you may find 
useful for other applications. For 
speed, DRAW ignores screen-windows 
and that should be considered when 
using TRANS in your programs, 
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Figure One. Screen co-ordinates range from 0 to 255. 
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DS Enterprises 
(01) 671 0209 





Disks 
5.25" DS DD DS QD 
Unbranded (Recommended) £12.50 ...........cccsesececeseeeesseeceeees £17.00 
Si fe0 |e nee + a 2) oi 8 a aa Ae oll ee ee £20.00 
3.5 SS DD DS DD 
Fl Se eee eee ELS I ho Ek ee a CR Re ME £32.50 


sv sopsenstupuss daudareedideavennvsans £35.00 


All disks are guaranteed and come packed in plastic flip & file type boxes. 


Drives 
QL, Spectrum or BBC Compatable. 

Single 80 Track Dual 80 Track 
O” cnteicherae asa tes EFOO00 cccusieenducting kad. £195.00 
BESO | csusvestecondeacsessawctercaece SE VOD IOW oevccsadece cassccexa betes eneacecbors £195.00 
QL Software 
EBUIGC LS Secs waisnscescixtecriveassesveucsiivessest tere ee £85.00 
ictier NLS AIS 8 | Ne ey ea ee eee ene eee £87.50 
Super Charger (Basic Compiler) ..........ccccccsssesesseeeeseesseceeeseeees £48.50 
FIeWNa ISS (ANN OISK OCCOUNUES © csccce-cern-teceacebeonscesersosecdeossonnnens £14.95 
TEASE NATE RTE EU... nove otto HU ee £17.50 
(C0 a ee 


Add On’s 


912k Memory Expander (Sandy) ...........cc-cccccccsscecsecscssscereces £125.00 
(including Rani Dise Somware)” .........0c..ccesscccececcarsstecdcucedssez £130.50 
GroskaDiselinteriaces .t. basics bi: GS ie pene aS £82.50 
Dual 3.5 DVVG + IMG ACG a iss cs siccccsonetnce coecccosnaddeessxacssecescts £265.00 
Zeroi2 (Turtle QL & SPCCHrUM)  scccccccccscccccccccccsosesnscseccsccceeeees £115.00 
Gemsronics-GLP(NL@ Printer <<....0.: 22 ee ee oe a £160.00 


Special discounts on complete packages or large orders, call for 
details of all QL or Spectrum needs on 01-671 0209. (All prices are 
inc P&P and VAT). Make All Cheques Payable To: David Storton, 
25 Trinity Rise, London SW2 2QP. 

















QMON II is a low level monitor/debugger designed specifically 
for the QL and its operating system QDOS. It is ideally suited 


Micr—_A_Soft 
QLuality software 


C-A-D & 3D GRAPHICS ON THE QL with “DESIGN BOARD 2” 

Suitable applications: Architects * Technical_Drawing * Maps * Science * 
Art_Design * Students * D-I-Y_Enthusiasts. Includes * C-A:D design of Single 
& 3-D graphics + mirroring N-S-E-W * Line_banding * On screen X,Y co_ords 
with optional linking grids * 4 texts mixable with graphic * 3 brush paintbox * 
Extras to C-A-:D & QL graphics, Single or 3D BOX-OCTAGON TRIANGLE:HEXA- 
GON-PENTAGON rotatable 360’ * Image_designer * Graphics angle indi- 
cator * Advanced screen dump-(EPSON compact) 

With 3D & C-A:D graphics + it’s many features Design Board 2 has to be consi- 
dered as the TOP QL design package. £24.95 

ART MASTER: Includes * Line_banding * Freehand sketching * 3 brush 
sizes * Full colour range * Colour sampler * Graphics angle indicator *Im- 
age_designer * Perspective grids * Advanced screen dump(EPSON comp-) 
This program contains many features of packages costing three times it’s price. 
£12.95 

FRUIT MACHINE: All the arcade sound & action of the very popular arcade 
bandits, with HOLDS — NUDGES — JACKPOTS. Now all the office and family 
can pit their wits & gambling skills against this highly addictive game of chance. 
£6.95 

GRAPHICS TUTOR: A must for all newcomers to & programmers of the QL. 
Lets even a novice design dynamic 3D graphic & text screens with automatic 
printed program listings. Simplifies use of Turtle graphics. Polygons. Cursor. 
Mixing text & graphics Point_locating. Shadow_writing + lots more. Single key 
input of QL graphic commands + Single or 3D autodraw of TRIANGLE HEXA- 
GON-BOX-PENTAGON-OCTAGON. 

As used by Micr_A_Softs in house program designers. A must for any software 
library. £14.95 

CASINO ROULETTE: On screen game board simulates all the action & excite- 
ment of a casino. Roulette is a game of skill allied to chance with a fascination 
of it’s own, with players seeking the ultimate winning system. This game is fast 
becoming the cult game in offices and homes whether played for high stakes or 
just for fun. £12.95 


FREE SOFTWARE OFFER 


Fruit Machine with every order over £20. 
For further program details Send to or Phone 0204 29643. 


Micr_A_Soft 134 Hardy Mill Road, 


Harwood, Bolton BL2 3PJ 
Cheques or postal orders payable to Micr_A_Soft + 50p p/p UK. 





QTK II, the QL Supertoolkit 2, is arewritten 
version of the original QL Toolkit. It now 
has over 100 facilities for program 










MON 















Single Line Assembler 









Pull Down Windows 


to the task of checking and debugging assembly language 
programs, and extensions to the SuperBASIC interpreter. Even 
if you already have a monitor/debugger for your QL, QMON II 
will provide extra assembly language programming power. 
QMON can also be used to monitor programs written in high 
level languages. 


QMON is designed to integrate into the QDOS environment. 
This makes it possible to monitor Just one job in the QL, or all 
the jobs that are executing. While tracing a job, QMON will 
normaliy skip the entries into QDOS, but it can trace right 
through QDOS. QMON does not interfere with QDOS so it is 
entirely feasible to examine one job in the QL, while other jobs 
continue unimpeded. 


QMON has an extensive range of facilities including a window 
based memory editor, single and multi stepping, tracing and 
back-tracing with fixed and conditional breakpoints, as well as 
a macro command facility for tracing and patching, together 
with an unusually powerful set of commands for examining and 


Disassembler altering machine code and data. 
Patch Despite its wide range of facilities QMON is very compact. The 
Trace full version, including a complete MC68008 single line 


assembler, editor and disassembler, occupies only 1Ik bytes, 
while a reduced version is included which takes 5k bytes. 






















TKO 








PRINT_USING 
Network 

File Server 
Wild Cards 
Key Define 











FLP 













Upgrade 
More Performance 













EPIL 











Menu/Command Input 
Multiple ROM Sets 
Memory Editor 
Variable Vec 

16k to 512k EPROMs 





The QEP III EPROM programmer was designed specifically to 
meet the need for a highly reliable means of programming MOS 
EPROMS. It is cased, withresident firmware in ROM and fits in 
the QL expansion slot or an expansion unit. 


QEP III provides verification of EPROMS at 4V 4.3V 4.7V 5V 
5e3V 5.7V and 6V: under and over voltage verification is 
essential for reliable EPROM service. It also features standard 
and interactive programming algorithms as well as its own 
accelerated algorithm at programming voltages of 12.7V, 21V 
and 25V. 


QEP III can program 16k to 512k EPROMs (even 25xx devices) 
with standard pinouts, or the data and address pins may be 
re-assigned for ease of PCB layout. It can program EPROMs 
for multiple EPROM sets without any need to reload the 
program data or program just part of an EPROM. 


Although QEP III is fully menu driven, the keystrokes to select 
items from the menus form simple commands. Options set up 
from the menus may be saved ina file for future use. 
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Standard Format 
Extra Facilities 





QMON Microdrive 
QMON 5.25" disk 
QMON 3.5" disk 
QEPIII 


SAE. 


cheque with order. 





QTKII ROM cartridge 
QFLP (MP) bare EPROM £14.95 
All prices include VAT at 15%. 


For more information on these and 
other QJUMP products, please send an 


If your QL dealer does not have the 
products you require, 
direct, using ACCESS/Mastercard or 


development, command language, SuperBASIC 
programming, extensions to the console, 
Microdrive and networking facilities. 


QTK II includes full networking for file 
serving, messaging etc.e, formatted output 
(PRINT USING), wild card copying, deletion 
etc., last line recall, programmable keys, 
Super BASIC program editor default 
directories, alarm clock etc., etce, etce, 


Essential for all serious QL program 
developers, educational establishments. 








The QFLP upgrade ROM for the Micro 
Periphals / Sinclair QL _ floppy disk 
interface is intended for distributers or 
dealers holding large stocks of these 
interfaces. However, if you have bought one 
of these interfaces, we are able to supply 
this upgrade (unpackaged) to improve the 
performance of your interface to the same 
level as other QL disk interfaces, as well 
making your interface meet Sinclair's own 
standard disk format. 


A comprehensive test report is available on 
request; please send SAE. 




















£19.95 + £1 pp 
£19.95 + £1 pp 
£21.95 + £1 pp 
£115.00 + £2 pp 
£34.50 + £2 pp 
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Dept W2 
QJUMP Ltd. 
24 King Street 
RAMPTON 
CAMBS 
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Psion 122 peers 


IF you ever envy the IBM's ability to go 
quickly from word processing to a 
spreadsheet with programs like Lotus 123 
it can be done with a QL (JM ROM) and 
issue 2 of the Psion Software. 


Format a cartridge 

Copy Quill from master 
Copy Print_Dat from master 
Copy Abacus from master 


Save the boot program which allows it to 
operate like Lotus 123. Obviously we do 
not use install_bas or convert_bas or the 
help files but everything works, even 
printing, and the system resets when 
finished. The last few lines which allow the 
reset are from Leon Heller. lam sure it will 
also work with Archive and Easel but as I 
do not use these programs much I have not 
tried it. This completely fills the cartridge 
so don't expect to add anything to it. 


1@e CLEAR 

1:@ WINDOW 512,256,.0,0:CSIZE 2,1:CLS 
120 AT Z-11:PRINT "QL QUILL PRESS Fi" 
13@ AT &6,11:PRINT "QL ABACUS PRESS F2" 
140 AS= INKEYS$ (1980) 

15@ IF CODE(A$) =232 THEN GO TO 192 
142 IF CODE(A$)=236 THEN GO TO zag 


17@ CLOSE #1:CLOSE #2:WINDOW #0.400.20.35.215 


1238 GO TO 148 

198 EXEC _W mdvi_quill:GO TG 220 
=30 EXEC_W MDV1_ABACUS:G60 TO 22a 
212 OPEN #1,.scr:OPEN #2,ser 

22@ reset =RESPR(12) 

=30 FOR i=2@ TO 11 

=42 READ v 

252 POKE resetti-v 

24@ END FOR j 

Z7Q s 

=2@ CALL reset 

290 3 


3@2 DATA 72,64,78,252,39,0,32,.128,08, 4,738,289 


Whatever happened to the Sinclair 
wafer chip? and also Psion Exchange on 
ROM cartridge for the QL. Could one put 
one’s own Psion software on the EPROMs 
being advertised by Camel Products or 
Micro Enterprises at the back of this 
magazine? 

Martin McHugo, 
Co. Kildare, Ireland. 


Network News 





CONGRATULATIONS on your rescue of 
the entire QL publishing scene. I received 
my copy of your magazine today and am 
writing to say how much enjoyed reading 
it. 

I am also writing to introduce QNET-2. 
We are a group of three individual QL 
owners who run three pages on Micronet 
800's Gallery section. These are to be 
found on pages *323000112, *32300037 
and *323000223. Regular topics include 
news, reviews of hardware and software, 
hints and tips, technical helpline and 
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competitions. It was set up in November 
last year after Micronet 800 suspended 
their QNET microbase on *80040. 

We currently have almost 100 members 
and membership is growing at a rate of 
four or five a week. All three pages are now 
in the top twenty most accessed Gallery 
pages on Prestel. My page is currently at 
number three — not bad for a machine 
that is not supposed to have much support 
on Prestel! 

Nigel Barker, 
Weston-super-Mare, Avon. 


Continental QL 


I READ with some interest the letter from 
your correspondent, M G. W. Feler of Paris, 
in your January 1986 number. I have had 
the same experience with low mains 
voltage here. All my equipment was 
purchased in England, with the exception 
of a Silver Reed EXP 500 printer, because 
of the ludicrous prices charged in this 
country for computers and ancillaries. 

I use a QL expanded to 640K, with a 
C.S.T. dual 3.5in. floppy system. To get 
correct operation, I have boosted the line 
voltage (nominally 220, more usually 215), 
to 240, with an auto_transformer, though 
evidently a voltage regulating transformer 
would be preferable. This has stopped 
problems with corruption of data, etc. 

The addition of the disc drives and the 
extra memory transforms the computer 
and turns it into a serious professional 
machine which it is not with 128K and the 
microdrives. I must say that mine has 
always worked impeccably and I consider 
it a vast advance over the warmed over 
Z-80 type stuff which seems, nevertheless 
to be so popular. 

I believe Sinclair is bringing out a new 
machine. What is needed is 640K as 
standard, suppression of the Microdrives, 
except perhaps as a cheap separate add on 
instead of discs, and access to MS DOS as 
Apple has done with the Macintosh. 
Sinclair should also improve its marketing. 
Amstrad sells its machines here under the 
name “Schneider”, which sounds serious. 
Perhaps Sir Clive should call his machines 
for export “Siindeklar”, 

F. Gutteridge, 
Geneva, Switzerland. 


On The Air | 


J. COOPER wrote in the January issue of QL 
User about the possibility of transmitting 


QL programs over the airwaves. All it 
needs to do this is a circuit to convert the 
QL's serial port output to an audible tone 
at a frequency dependent on the level at 
the port. The tone can then be transmitted, 
received, and finally fed back into the 
other QL’s serial port. 

Such a circuit is in fact commonly 
referred to as a modem, and for the home 
constructor several designs have been 
published, for example: | 

Acoustic Modem by Jonathan Burchell, 
Radio & Electronics World, February 1983, 
pages 10 to 13, Acoustically Coupled 
Telephone Modem by Kenneth Amor, 
Practical Electronics, February 1980, 
pages 39 to 44. 

Both of these modems are intended for 
acoustic coupling to the telephone line via 
a loudspeaker and microphone. To adapt 
them for radio it should only be necessary 
to substitute the transmitter input for the 
loudspeaker and the receiver’s output for 
the microphone. The above designs are for 
300 baud operation, so the QL’s serial port 
would need to be set up for this. Programs 
could be transmitted by a command such 
as SAVE serl with the receiving QL set for 
LOAD ser1. 

Finally I would like to endorse G. 
Slatter’s comments on the Centronics GLP 
printer — it really is a “Great Little Printer” 
and excellent value for money. 

R. Wilson, 
Cirencester, Gloucs. 


Expanded Accounts 


YOUR correspondent Mr. A. Viney who is 
having trouble with running Sagesoft 
Integrated Accounts on his QL appears to 
have been misinformed by Sagesoft. 

I purchased Sagesoft Integrated 
Accounts in October 1985 which ran very 
satisfactorily on my unexpanded JS ROM 
machine. I have subsequently converted it 
to run ona single drive disc system — an 
Opus single drive via a Technology 
Research unexpanded interface. 

However, because | also needed to run 
the program at home I purchased another 
QL, this time with a JM ROM. Result — 
nothing! Sinclair Research kindly updated 
the ROM without charge to a JS and again 
everything is in order. My only criticism is 
the 15 to 20 minutes required to make 
back-up copies on microdrive. 

I therefore suggest Mr. Viney’s problem 
is not in the expansion or disc drive but 


with the ROM version — possibly JM? A 
colleague has also confirmed that his AH 
machine runs Sagesoft's Integrated 
Accounts. 
I hope that this is of assistance to Mr. 
Viney and your other readers. 
G. H. Bent, 
Corby, Northants. 


Editor's reply: The most recent version of 
QL Integrated Accounts — V1.21 — 
incorporates a start-up routine which 
enables it to be used with most of the 
floppy disc systems available for the QL. 
We spoke to Sagesoft, who were unable to 
confirm that Integrated Accounts would 
run on version JM ROM machines. If any 
other readers have had problems with the 
Integrated Accounts package, please write 
and inform us. 


Fast Drives 


CONGRATULATIONS on a magazine that is 
improving tremendously every issue. 

Michael Rouse’s letter in the January 
edition finally solved a problem I have had 
with Quill since day one, in that I had to 
keep switching my Epson FX80 printer off 
and on to get the last line out of the buffer. 

I find one drawback with QUILL and 
‘what you see is what you get’ is where 
draft copies are required, before final 
print-out in bold or elite/double-strike. It 
is awfully slow to go back over a long 
document using F4 Paint. 

My solution is to set up a printer driver, 
accessed through LRUN MDV1_INSTALL_ 
BAS, which gives me the best mix of 
embedded and non-print codes along the 
top line of keys. This easily allows an 
explanatory strip to be put across the top of 
the QL as a reminder, 

Best wishes to you all for the future, but 
how about the following resolutions? 

1. Try to avoid ‘games programs’. Most 
USERS bought their QLs for serious 
applications and non-machine code 
programs are a waste of time anyway. 

2. Much more usefully, publish 
applications for the bundled software 
programs rather than concentrating on 
SuperBasic. These would also adapt to the 
ICL OPD/Merlin Tonto and you should 
widen your readership base quite 
considerably. 

3, Finally, do keep the Microdrive 
exchange up-to-date, I am desperate to get 
my hands on the File Recovery Program in 
January but despite promises in the text 
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there is no mention of cost in the relevant 
section. 

A. Taylor, 

Bristol. 


Editor's reply: QL owners have a diverse 
range of interests from games through to 
programming and serious business 
applications. We try to mirror this diversity 
in Sinclair QL World by including articles 
of interest to everyone. Hence, as well as 
the odd games feature you will continue to 
find numerous articles aimed at the 
business user, such as last month’s 
software applications feature on the Psion 
packages. 

The Microdrive Exchange has, 
regrettably, suffered a few bottlenecks as a 
result of our change of offices. Hopefully, 
by the time you read this things will be 
back to normal. 


QL Mk 2? 


I MUST ADMIT I am surprised that the QL 
has not reached a larger market than it has 
to date. I tend to believe that it is thought to 
be too sophisticated by the home 
computer buff and not sophisticated 
enough for business. The gap between the 
two spheres of operation is too wide for 
any one machine. It's potential must lie 
more in the business mode, and after using 
one now for some 18 months I think the 
following improvements for a Mk 2 version 
might prove very popular: 

1.No doubt at all about getting rid of the 
Microdrives, — I could be very rude here, 
but its not fitting fora magazine —and fita 
1 meg. 3.5in. disc in the right hand side, 
with an external socket for a second drive. 
Add required commands to SuperBasic. 

2. Permanently fit 512K of external RAM 
as standard — external for the best speed. 

3, Put the Psion suit into ROM with the 
facility to multi-task, so that for instance, I 
can check for details in Archive if I am half 
way through writing a letter with Quill, 
without losing my place, or having to save 
the letter for future attention. 

4. Internal parallel printer interface. 

5. 85 column ability colour monitor. 

6, Power supply built into the monitor. 

7. Mains spike suppression built in. 

At the moment I have 640K memory, 
twin 1 meg. drives, Sanyo monitor and CP 
80 printer. My only grumble is that no-one 
seems able to produce a reliable Q+2 
interface, they all seem to cause 
intermittent ‘lock up’. Other than that the 
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system is excellent and worth far more 
praise than the press seem willing to give it. 
Tim Fuller, 
Southampton, Hants. 


Printing On The Cheap 


HAVING recently bought a cheap printer I 
was quite pleased with how easy it 
eventually was to connect it to the QL 
running QUILL, even though the CGP-115 
graphics/text printer was supplied without 
manual or connection details. 

The printer performs quite well in 
normal (large) print mode, the characters 
are not by any means perfect, but are very 
legible. (Don't try using the small print 
option unless you own a magnifying glass!) 
Other features must be available, but I 
have not found them yet! Perhaps another 
CGP-115 user could pass this information 
On to me? Printing times leave a lot to be 
desired, but at a cost &59, who can 
complain? 

I connected it to SER2 using an RS232 
lead which was purchased by mail order 
for &7.50. After tracing it through with a 
meter (no information with this either), I 
eventually figured out which pins 
correspond to which signals: 


25-way male D-type 

PIN SIGNAL 

2 TX (fromQL) 

RX (to QL) 
CIS 
+12v 

7 GND 
20 DTR 


HN Lo 


The following printer information was 
deduced alfter another few minutes: 


4-way DIN 
PIN SIGNAL 
LWNG? 
av GTS 
3 GND 
4 IX(fromQL) 


The printer receives serial information 
at 600 baud, with even parity. The CTS 
signal is required by the QL since the 
printer carriage return time is quite large, 
about three seconds, which is enough time 
to loose several characters. 

Apart from the graphics functions which 
I haven't found yet, I wonder if it will 
change pen colour while printing? 

P. Johnson, 
Stoke-on-Trent, Staffs. 


Editor's reply: \f any readers with a CGP 
printer can provide more information we 
would be glad to hear from you. 


Wi )ued wuliliam mn (atk: 


HAVING successfully interfaced a Sinclair 
Spectrum with a Tandy DMP-105 matrix 
dot printer, I was dismayed to find 
problems in using the same printer with 
my new QL. 

When listing a program to the printer, 
the first line prints correctly, but 
subsequent lines have the first digit of the 
line number missing, The listing ends with 
an “X", which the DMP-105 prints when it 
receives a code outside the character set 
and is not a control code. When used with 
any of the Psion programs the same 
problem occurs, unless the margin is inset, 
in which case occasional lines are inset an 
additional character position. 

The QL would appear to be sending an 
extraneous code after sending CR (Code 
13), which causes the printer to ignore the 
next character code. But why? 

The DMP-105 has both serial and 
parallel connections and I have been using 
SER1 with the same pin assignment as used 
with the Spectrum Interface 1, as follows: 


QL DMP-105 (4 pin DIN jack plug) 


RxD to (4)DATA 
DTR to (2)BUSY 
GND to (3)GND(OV) 


The instructions I have used are: 


OPEN #3, serc Default to SER1 with 
non-parity and 
handshake 

Change ASCII code 
10 to code 13 
Printer defaults to 
CR=CR+LF 

Printer can be set 

to either 600 or 
2400 baud 


BAUD 2400 


LIST #3 
CLOSE #3 


Could the problem be solved by using a 
parallel interface, or must I accept the 


100 DIM af(3,4),a%(3) » OPEN 


possibility that the QL and DMP-105 are 
incompatible? 

There appears to be no way to make 
multiple copies and printing one copy is 
fairly tortuous! 


Press F3 forcommand mode 
Press P for printing option 
PressENTER  toaccept default 
option-current 
document 
PressENTER  to.accept default 
option-whole 
document 
PressENTER  to.accept default 


option-to printer 


Then several seconds further delay, 
while printer data is found and loaded. 

I often have the need to print 20 to 30 
copies of reports, and I have been using 
Tasword Two to do this. Although Tasword 
was not designed with automatic paging 
for continuous paper, or with multi- 
copying facilities, it was a simple matter to 
introduce these facilities in the basic 
control section. Is there a way of 
introducing multi-copying into Quill? 

Derek Coverdale, 
Ipswich, Suffolk. 





Programmers Take Note 


I FIND typing in other people's programs a 
very tedious process, it is made doubly 
worse if there are many DATA statements. 
Worst of all perhaps are those where the 
data can be generated by many fewer lines 
of program — with far less risk of error. QL 
User for January has a good example on 
pages 27-29, and as if to prove my point 
there is an error in the DATA statements! 

The following short program will 
generate lines 470-532, which can later be 
merged with the main body of the 
program; lines 527-579 can be treated 
similarly. 

May I press you to ask your contributors 
to consider this point; to ignore it is, in my 
view, poor programming and an insult to 
your readers. 

Mr. J. B. Russell, 
Rainham, Kent. 


@dv2_daet_gen 


NEW 4, 
110 a%(0)#0 + aX(1)"O 3 aX(2)=@0 ¢ aX(3)21 


120 FOR i 
130 iXe#. 
140 FOR j = 0 TO 3 


= 470 TO S23 


150 aS (jdmart( jy) 1 a8( fj) @FILLS("O" ,4-LEN(a8(j)) )&as( i) 


160 END FOR j 


170 PRINT 4,14%;" DATA “SCHRE (34) Sas (0) Sas (1) &as (2) kas (3) &CHRE (34) 


180 IF i = S23 THEN EXIT i 


190 FOR j =© O TO 3 2: aX(j)=2ZeaX( j) 


200 FOR j = 3 TO O STEP -1 


210 IF aX(j)>9999 THEN a%(9)"a%(j)-10000 : aX%(j-1)saX(j-1)¢1 


220 END FOR j 
230 END FOR i 
240 CLOSE 4 
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BBASIC ALTERNATIVES: APL 


In the first of our 
regular series on 
alternative languages 
to SuperBasic 
Charles Gerrard 
reviews QL APL. 


SOOS 
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QL/APL 
Keyword Version 


Professional Programming Language 
for the Sinclair QL 


on ee She Sat a OE 
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uperBasic on the QL is a generally useful 
S language, well structured, with a wide variety 

of commands. Now, with the addition of a 
compiler, even the slow speed of SuperBasic can be 
avoided. SuperBasic, though one of the best BASIC 
implementations available for a home micro, Is often 
just not good enough. Many people find themselves 
looking to other sources for their specific needs. They 
will normally be the more common languages, such as 
Pascal, C and Fortran. There is, however, a wide range 
of more exotic languages now available for the QL. In 
the next few months, we will be introducing those 
languages in a series of articles. 

The first will be introducing the much-maligned 
language Lisp, with special reference to the excellent 
Metacomco Lisp package. To introduce the series we 
look at an even more unusual language. 

Though getting a little long in the tooth, having been 
around since the 1960s, APL — A Programming 
Language — has a small but loyal following. 

Generally found on only large systems, the APL 
package for the QL is probably one of the cheapest 
implementations available. 

Designed as a mathematical language, APL is very 
different from the more traditional languages found on 
many home micros, such as Pascal and BASIC. With 
the ability to handle complex data structure operations 
with single instructions, APL is often very confusing to 
the beginner but has great advantages once it has 
been mastered. In addition, until now APL has used a 
symbolic notation containing a wide variety of unusual 
Greek symbols, which have tended to intimidate new 





users. The QL/APL version has expanded all those 
symbols into a set of Keywords, making the language, 
at least in appearance, much more like BASIC. 

On power-up, with the cartridge in place, “QL/APL 
Keyword Version 1.03” is displayed. Having booted the 
APL cartridge, you are informed that 28K of workspace 
is available. Not a great deal, even if a portion of the 
interpreter is on ROM, so serious use will probably 
require QL memory expansion. You are now in the APL 
environment. Rather than defining independent input 
and output windows, as are normally found, all input is 
shown in red and output in green, though those colours 
can easily be changed if you have a monochrome TV or 
monitor. 

The interaction with Qdos will also allow you to 
define different windows easily for calculator 
input/output and program input/output or any other 
processes you may be running. Though the system 
allows for only five user channels, such channels as the 
printers — ser1 and ser2 — are defined previously, 
through the system function #HC (Hard Copy), so 
there should be no difficulty with that. 

APL is a highly-structured language, making good 
use of function libraries and multi-dimensional data 
structures. For instance, to add a number to a list of 
numbers, you would type: 6+7 3 5 7 9which would 
produce the list: 7 9 77 13 715 by adding six to all the 
elements. Any of the data structures can be given an 
identifier, much the same as a variable has an identifier 
in SuperBasic, so you would not normally find that kind 
of rather simplistic example. 

Because of that structure, standard APL requires 
two types of minus sign, one for negation of a number 
— known as the high-minus or negative marker — 
and one for subtraction. As explained in the 
documentation, that is not possible in the keyword 
version and a different syntax applies. A minus sign 
followed by a space will be interpreted as subtraction. 
That can make spacing very important, which is not 
normally a problem using the standard version of the 
language. 

When developing a program, QL/APL uses the 
Standard QL editing key combinations, though 
alternative word processing packages may be available 
when the proposed package for integration with files 
from other sources appears. On the whole, error 
messages are informative, and a #TRACE function is 
included for those elusive bugs. 

It probably will not be long before you encounter a 
fundamental difficulty with using the language. There 
is no facility to interact or switch between APL and 
SuperBasic. That means when you want to save your 
first program, you should have a formatted cartridge 
ready, because you will not be able to format it from 
APL. That can be a major handicap if you find, for 
instance, that you have run out of storage space on the 
cartridge you are using. 
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In addition to most of the standard APL features, 
QL/APL also includes a number of additional functions. 
One is #CC (Console Control) which allows integration 
with the Qdos operating system for windowing, 
borders, screen modes and colours, filling, lines, 
circles, and so on. That command also allows access 
to the keyboard and sound control. One or two quirks 
appear, such as having to type: X is #CC 0 10 20 
instead of just: #CC 0 10 20 to position the cursor. 
The second statement throws an automatic line feed, 
positioning the cursor at 11,20. There are a few quirks 
like that but you tend to become accustomed to them 
fairly quickly, and even traditional QPLers should have 
no difficulty adapting to the keyword system, given 
time. 

In most cases, where the QL has a particular APL 
character available, QL/APL uses it, or its logical 
alternative. So, addition, multiplication and division use 
the normal symbols ‘+’, ‘*’ and ‘/’. For some reason, 
however, a number of the APL symbols which are 
available on the QL have been changed in the keyword 
version. For instance, rather than using square 
brackets, [], MicroAPL has chosen to use angled 
brackets <>. There seems to be no obvious reason 
for this. In fact, the square brackets, being unshifted, 
are probably easier to use. The ‘=’ sign has also been 
changed to ‘eq’, though that is possibly to make it 
consistent with the other relational keywords. 

One very obvious area for improvement is the filing 
system interface. At present, files are accessed by 
numbers rather than names. MicroAPL says it has no 
immediate intention of producing such a software 
interface but it mentioned a filing utility which will soon 
be released, allowing APL users to access files from 
other sources, such as Quill and Archive. 

The use of keywords will not be very appealing to 
experienced APL users but will mean more to 
beginners and encourage them to use the language. 
One problem with this method is that APL program 
lines, which are often long and complex in the symbolic 
version of the language, will be even longer in the 
keyword version, making the new more verbose 
structure even more difficult to read. Also, with the 
single minus sign and the 47 keyword primitives, 
which cannot be used for user-defined functions, 
conversion to the QL from other APL interpreters could 
pose problems for anybody not fully conversant with 
both versions of the language. 

The MicroAPL choice of keywords does not seem to 
be very standard. It has adopted a more meaningful 
Basic approach rather than just converting the Greek 
symbols to their respective words. That is probably the 


which has not been included but | have never 
encountered it, so it is no great loss. )GROUP and its 
associated functions have not been implemented. That 
is a pity; though the command is really only a nicety for 
grouping functions. 

The documentation consists of a hefty but 
well-written, tome, designed both for beginners and 
advanced users. It is written in four sections; section 
one shows how to load and run APL and section two 
gives a very easy-to-follow beginners’ guide, with 
examples. Section three is a complete description of 
the language, which is useful to APL programmers and 
beginners, showing the keywords used. Section four 
contains useful reference information, including an 
invaluable Keyword-to-APL table and a summary of all 
the system functions and variables and their uses. 

Available from MicroAPL Ltd, the new keyword 
version of QL/APL costs £99.95 for which you receive 
a ROM cartridge containing about 30K of the 
interpreter, a Microdrive cartridge from which you are 
advised to make a working copy, and a detailed manual 
covering most aspects of the language for the 
advanced user and beginner. 

In addition, a standard QL/APL version is available, 
with all the associated symbols, for £129.99. It arrives 
with a separate card detailing the use of the standard 
keyboard to obtain the symbol graphics. One 
noticeable black mark is that MicroAPL has no 
telephone enquiry service if you have problems. That 
suggests that the package is definitely aimed at the 
home user rather than the professional APL 
programmer. 

It is unfortunate that the QL is unable to handle both 
the symbolic and keyword versions simultaneously, 
which would allow new users direct comparison 
between the two versions. Any serious users who think 
they can handle it, and who are willing to pay £30 
extra, would probably be best-advised to buy the 
symbolic version, especially as there is a chance that 
they may use other APL implementations in the future. 
That, however, may create a problem when requring 
hard copy output, because there are, as yet, no printer 
drivers available. 

Both versions of the language are well worth 
considering. These professional products make the QL 
an attractive buy as the cheapest APL system 
available. The clever yet simple step of producing a 
keyword version of this cult language should create 
many new users and die-hard followers. 


QL/APL - Specification 





* Special keyword version runs on standard QL keyboard 

* Compatible with IBM mainframe APL 

* All standard APL facllities implemented, with no restrictions 

* Variables up fo 8 dimensions 

* No object size limit other than available memory 

* High precision floating-point routines accurate to over 15 digits 
* Error Trapping under program control 

* Commercial ‘picture’ formatter makes report generation easy 
* Multiole statements on a line 


best approach but makes conversion a little more 
difficult. Having said that, QL/APL keyword programs 
should still run on standard APL packages because of 
the keyword translator which is included in the 
interpreter. It converts keywords into the standard APL 
68000 codes on input, converting them back to 
keywords on output. Consequently there should be no * Wide range of system functions (string search, matrix-vector conversion, fc) 
difficulty when transferring programs between the two ; * Professional component filing system 
QL/APL packages. * Overlays (functions and variables may be combined into packages) 
There are two features which are not implemented pe esr Vier Oates eee 
on the QL/APL system for space-saving reasons. 
QuadFMT (or #FMT) is a formatting system function 
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* Built-in colour screen handling, window support, colour graphics 
* Printer control and redirection of Output 








ABC Elektronic 


Huegelstr. 10 — 12 4800 Blelefeld 1 Western Germany 


proudly presents the Giga Soft 


iviouse 


for the SINCLAIR QL 


The Giga Soft Mouse comes ina ready-to-use package Including a high quality 
mouse (resolution 0.01”), an interface for the joystickport of the QL and a software 
package. 


The software consists of the following programs: , 
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G Ig a Bede Bas : C (Tested in QL USER 1/86 p. 58) Mee 


A totally new type of Basicextension for the SINCLAIR QL. It adds more than 70 
new commands to SuperBasic. Features: 








» Full mousecontrol from Superbasic » Programmable function keys. 
» Easily programmable MACINTOSH » Comfortable texteditor like 
style pull down menus. Basiceditor with 20 functions. 

» Very sophisticated spritanimation » Commands to program real windows 
commands. (with background refreshing) .& 
b a A. S ba E ® The new MACINTOSH style des top 

Easily Applicable System Environment 
» E.A.S.E. is completely mousedriven. » E.A.S.E. has an inbuilt puzzle game. 
» E.A.S.E. Supports real » E.A.S.E. gives you full I/O control, all 
pulldownmenus. functions can easily be accessed by 
» E.A.S.E. can work with up to 7 real using the mouse. 
windows. » E.A.S.E. windows can be scrolled 
» E.A.S.E. has an inbuilt scientific and moved across the screen. The 
calculator. size of a window can be changed by 


using the mouse. 
COD £222 DMExFRT Cheque with Order £210 DM Ex FRT 


How to Order: 

1. Send cheque to ABC or 

2. Transfer money to Postcheckamt, Dortmund, Account Mr. Budde No. 90283469 
or 

3. Send an order to the above address. We will despatch it cash on delivery. 


QL COMMs 


BROWSING through Micronet’s news 
pages turned up an interesting item on 
something called Citadel. Apparently 
Citadel is the name for a slightly usual 
kind of bulletin board dedicated 
entirely to QL users. The host software 
for Citadel owes its origins more to 
adventure game software — like Dun- 
geons & Dragons — than it does to a 
purpose designed bulletin board. 

Citadel is split into rooms instead of 
relying on a menu system like other 
boards. Despite its extravagant claims 
of originality it is similar to PIP in Shef- 
field which uses TBBS host software. 
Not everyone likes the idea of having 
to explore the system in order to find 
interesting items. Fortunately, like 
standard bulletin boards Citadel also 
supports private mail for communicat- 
ing with other callers. 

The system operator — or sysop for 
short — is Ken Smith of DataManage- 
ment in York. Citadel is run on a Shel- 
ton CP/M machine to which a 28MB 
hard disk has been attached. Ken 
claims that the system holds around 
4MB of QL software for free download- 
ing. Citadel can be accessed at either 
300 or 1200/75 baud. It does not, how- 
ever, currently support Prestel soft- 
ware, so a standard terminal package is 
needed. No prizes for guessing that 
DataManagement sells such a package. 

Ken's reasons for running Citadel 
are, therefore, partly mercenary. 
DataManagement was responsible for 
writing the software for the ill-fated 
Brightstar modem. When that project 
bore no fruit, the company looked 
around for another modem and hit 
upon Thorn EMI DataTech’s VX543. 
This is a dual standard V21/V23 modem 
with an internal buffer. That means no 
interface is needed. Communications 
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are carried out via one of the QL’s two 
serial ports at 1200 baud full duplex. 
Since the Thorn modem is not 
machine specific, it can be used with 
other micros besides the QL. DataMan- 
agement will sell the complete QL soft- 
ware/modem package plus Sagesoft’s 
ChipChat IBM PC software for £340 
plus VAT. That is at least £59 less than 
Sagesoft charges for its own complete 
IBM package. 

DataManagement’s — communica- 
tions package costs £231.50 including 
VAT. The price includes membership 
of Citadel, QLPrestel, QTerm, the 543 
modem plus serial lead. It is consider- 
ably more expensive than the &113 
exc. VAT now being charged by Tan- 
data for its QL comms system. Both 
packages are compatible with bulletin 
boards and Prestel. 

QTerm has a number of extra bells 
and whistles such as the ability to 
receive up to 60K of files using the 
Xmodem error correcting protocol. 
An upgrade, QTerm2, is planned 
which will contain a useful off-line text 
editor. QL Prestel is written in BCPL 
and features the ability to automatically 
log into Prestel, capture 10 frames and 
then log out again all at a preset time. 
The one thing it does lack is a tele- 
software downloader for Micronet. 
This should be available later as an 
upgrade. DataManagement also sells a 
variety of other software for the QL 
including QL Finance Manager and QL 
Life. 

The drawback with Citadel is that 
one needs to pay a subscription fee to 
DataManagement in order to access it. 
Ken Smith believes that will be set at 
around £25. That will, of course, keep 
casual callers off the board. Callers 
need to have a valid password as well 


as knowing Citadel’s actual number. 
Users also have to pay for the cost of 
phoning York which is not much fun if 
it is not a local call. Membership of 
Citadel will be initially restricted to 
around 500 to prevent the system from 
becoming permanently engaged. 

Citadel is currently the only bulletin 
board dedicated solely to QL owners. 
It has a constantly changing range of 
Qlsoftware available for free 
downloading. Ken is obviously a QL 
freak himself with his personal 
machine sporting 1.6MB of floppy disc. 
He also puts out a two page QL news- 
heet. 

Citadel does have some competition 
in the bulletin board field. Stephen 
Adams has set up a board aimed at 
Sinclair users. The host software is 
CBBS (R) which will be very familiar to 
ardent hackers. Stephen's main 
interest is in selling communications 
software for the Spectrum. He does, 
however, welcome QL owners. Based 
in London the board’s number is 01 
249 3238. It will cope with either 300 
or 1200/75 baud calls but not with Pre- 
stel software. 

Strangely enough Stephen's board 
also runs on a CP/M machine. Ken 
Smith has yet to write the software to 
turn the QL into a bulletin board host. 
In Stephen Adams case he is using a 
Superbrain with 720K worth of disk 
storage. The board operates 24 hours a 
day and gets a large number of calls 
from overseas users as well as UK 
enthusiasts. Unlike Citadel, Stephen 
makes no charge for accessing the 
board. 

For those interested in Citadel or the 
comms package, DataManagement can 
be contacted at Clark House, Haxby, 
York (0904 760847). 





Our resident expert 
Tony Dennis brings 
you up to date on the 
latest from the 
communications 


world. 
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For many years computer scientists have used games 
as models to test new programming techniques. That 
permits them to test their routines within a well- 
defined environment, rather than under the often 
ambiguous real-world conditions. 

The major difficulty researchers of artificial intelli- 
gence face is one of complexity. Making a program 
play the game of Noughts-and-Crosses, which was 
once thought to require intelligence, is no longer a 
challenge. Moving to chess, that provided a significant 
challenge for many years. Even today, chess programs 
have not quite achieved world-class fame but they can 
easily beat the vast majority of people. A new game 
challenge was needed, the oriental game of Go. 

Though the rules of the game are far simpler than 
chess, the game is far more complex. After more than 
20 years of research, the top programs still play at little 
better than novice level. Next month we will present a 
QL SuperBasic program which plays the game. 


Though not highly proficient, the program provides a, 


good introduction to the game and should prove 
something of a challenge. The program has been 
designed specifically so that it is easily modified and 
developed. 

Go is a two-player game, played on a board 
inscribed with a grid of 19 x 19 lines, giving 361 inter- 
sections, as shown in figure one. The two players, one 
playing black and the other white, play alternatively by 
placing one of their infinite supply of stones on to any 
vacant grid intersection of the board. The ultimate 
object of the game is to surround territory — vacant 
intersections—with your own stones, the winner being 
the player with the highest score — most territory — 
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at the end of the game. That score is modified by cap- 
turing enemy stones during the game. 

The first move of the game is played by Black, usu- 
ally the weaker player. Go has an exceptional feature 
for board games, allowing players of differing 
strengths to enjoy a challenging game. If there is a sig- 
nificant difference between the playing strengths of 
the two players, Black's first move consists of placing 
between two and nine handicap stones on to the 
board. Those stones are placed in a specific pattern on 
to the nine points marked on the board — see figure 
one. Figure two shows the appropriate patterns. 

Any vacant point immediately adjacent to a stone is 
called a ‘liberty’. Thus a single stone can have two, 
three or four liberties — figure three — depending on 
its position on the board. To capture a stone, the oppo- 
nent must place his own stones on all of those liberties. 
Thus, in figure four, if Black’s last move was to fill the 
last liberty of the white stone, then the stone would be 
removed from the board. If two or more stones are 
immediately adjacent to each other, horizontally or 
vertically, they are said to be connected to form a 
‘group . Note that diagonal connections do not count, 
so there are three groups shown in figure five. It is not 
possible to capture a single stone in a group; instead, 
the whole group must be captured as a single unit by 
filling the combined liberties of all the stones —figure 
six. These are the rules of the game but a few complica- 
tions follow: 

Suicide. A player may not place a stone on the board 
such that, at the end of the player's move, the stone or 
its associated group would have no liberties. Thus, in 
figure seven, Black cannot play on either of the points 
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Marcus Jeffery attempts to unravel the 
mysteries of the oriental game GO. 





marked ‘1’ or ‘2’. Black, however, may play on point ‘3’ 
because that would leave the white group with no 
liberties and the white stones would be removed, thus 
creating liberties for the black group before the end of 
Black's move. 
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Handicap patterns 
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Liberties 


Ko, meaning infinity. Ko occurs when a single 
stone is captured and the opponent can play 
immediately back on to the vacated intersection to 
recapture the previously-played stone and produce 
the prior position. If that sounds a little complex the 
situations shown in figure eight should help to explain 
things. To deal with this anomaly a special rule pro- 
hibits a player from placing a stone which would pro- 
duce the ‘immediately prior position’ but must instead 
play at least one intervening move somewhere else on 
the board. Those intervening moves are usually played 
so that they threaten the opponent and demand an 
immediate reply — a move in ‘sente’ for Japanese 
readers. Those ‘Ko threats’ allow the player to re-take 
the Ko position — i.e., the intersection disallowed on 
the previous move — and compel the opponent to 
find a similar threat in order to continue the Ko fight. 


ny 
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Capture 


A further problem can occur in which more com- 
plex Ko situations develop. Figure nine shows a ‘triple 
Ko situation. 

(a) Black plays at ‘2’, capturing the white stone on the 
right. 

(b) White then captures the black stone just below ‘1’. 
(c) Black captures the white stone just below position 
3 

(d) White, having played an intervening move, can play 
back into the position of the first capture — just to the 
right of ‘2’ — removing the black stone. 

(e) Black recaptures the white stone at ‘1’ by playing on 
the now vacant intersection below it, and so on. 

During the normal game, if neither player is willing 
to give up this Ko fight, the game is cancelled. Fortu- 

nately, such situations are rare and the program which 





we will be developing will not be asked to deal with 
them. Doing so would require the computer to store 
all board positions during the game and check them 
against the current position to see if they match. If they 
do a Ko situation has arisen. 

Inquisitive readers may already have pondered 
whether a group of stones is ever completely safe from 
capture by the opponent; the answer is that it is which 
brings to light a very important concept of the game, 
that of ‘Life and Death’ for a group of stones. A liberty 
which is entirely surrounded by stones of the same 
colour, so that it is controlled by them, is called an 
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Group capture 


‘eye. We have already met an example of this in figure 
seven, where the Black play at 3’ kills the white group 
by filling the hole, or eye. You will notice that to kill 
this group, the eye filling move must be the last stone 
played. If, for instance, the white group was not sur- 
rounded by black stones, placing a stone in the eye 
would contradict the suicide rule. 

Taking the concept one stage further, imagine a 
group containing two eyes, such as the White group in 
figure 10. To capture the group, the last Black stone 
must fill both eyes simultaneously; that is impossible, 
because Black can place only one stone at a time. Con- 
sequently, this group, and any containing at least two 
eyes, is safe from capture and will remain on the board 
until the end of the game unless, of course, White is 
stupid enough to fill the eyes. 
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Suicide 

It is not even necessary that the eyes be controlled in 
one group. The two six-stone white groups shown in 
figure 11 — remember diagonal connections do not 
count — share the two eyes, ensuring that neither 
group can be captured by Black. 

Take care, however, for although the two groups in 
Figure 12 appear to share the two eyes at intersections 
2 and'3’, Black can capture by playing the sequence of 
moves: ‘1’, ‘2’ and °3’. The eye on the right — ‘2’ — is 
known as a false eye’. 
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KO 


All those groups have had fully-developed eye for- 
mations but in practice it is not necessary to form two 
eyes for each group — merely to have the potential to 
do so if attacked. Thus the White group in figure 13 is 
safe, even though it has not formed two eyes. 
Whichever of the two positions Black plays into — the 
remaining two points are mirror images — White can 
place a stone to form two eyes. Experienced players 
would not need to go so far and might have open- 
looking positions which they know they can defend. 

The end of the game is decided by mutual consent of 
the players or when both players pass. That tends to 
happen when neither player feels there is any advan- 
tage to be gained from continuing to play. Passing is 
allowed by either player at any stage during the game 





Triple KO 
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but is rarely used. That rather ambiguous end-rule has 
caused many problems for computer programs which 
find it very difficult to decide when to stop. It is a fea- 
ture which we will not be implementing in next 
month's program, leaving it to the human player to 
decide when to stop. 





The eyes have it 


At the end of the game, each player's score is calcu- 
lated in the following manner: 
(a) All neutral points, known as ‘dame’, are filled. 
Either player can fill them, since they will not be calcu- 
lated in the final score. 
(b) Any stones, or groups of stones, which cannot 
avoid capture are removed from the board, just as if 
they had been captured. That implies that it is not 
necessary to capture those ‘dead’ stones during the 
game, so long as you are able to do so if you wished. 
the capturing sequence could be played out but would 
benefit neither player, since the defender would have 
to fill his territory — losing points — to capture the 
opponent's stones — gaining points. 
(c) Each player’s score is then calculated as the 
number of vacant intersections controlled by the 
player — ie., the player's territory — minus the 
number of stones captured by the opponent. The win- 
ner is the player with the most points. 
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Shared eyes 


So why is the game of Go such a challenge when 
compared to similar games of intellect such as chess? 
Most computer game programs build what is known as 
a ‘game tree’ from each position. For instance in chess 
there are reckoned to be, on average, approximately 
30 possible moves from any given board position. Tak- 
ing that as a basis, if a computer were to try every pos- 
sible move it would have to examine 30 possible 
resulting positions, deciding how good each is. 

When trying to decide the merit of each move it may 
be a good idea to check which moves the opponent 
can make from the position. That is reasonable 
because the opponent will have the first move from 
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the position and it is obviously no good if the oppo- 
nent can immeidately check-mate you. : 

If we assume that the computer will examine all the 
moves which the opponent can play from the 30 posi- 
tions which the computer can reach initially, we have 
to examine somewhere in the region of 900 (30 x 30) 
possible positions. Taking that a stage further, we 
could look at all the computer’s possible replies, giv- 
ing approximately 27,000 positions to be evaluated, 
followed by 810,000 positions at the next level, and so 
on. This look-ahead evaluation is shown diagramati- 
cally in figure 14, where the branches from each posi- 
tion node show the possible moves from that position. 
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Though the two groups appear to 
share two eyes, they are easily 
captured using the sequence shown. 
Horrendous though those numbers may appear, 
they can be reduced somewhat using a variety of 
techniques, particularly the alpha-beta algorithm, and 
they are manageable by high-speed computers. The 
average number of moves available from a given posi- 
tion in the game of Go, ona 19 x 19 board, is estimated 


P(1) 


to be around 200. On our 15 x 15 board that number 
is still likely to be around 125. If we start our standard 
look- ahead technique, the exponential growth gives 
15,625 for the opponent's replies, 1,953,125 for the 
computer’s second move, 244,140,625 positions from 
that, and so on. 
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Eye potential 


Even large mainframe computers would find that a 
real chore and the humble QL could not be expected 
to use the technique and find a move this side of 
Christmas. What is more, it is not unusual for Go texts 
to examine some moves up to 20 or 30 moves ahead to 
decide the outcome ofa particular battle. 

That demonstrates the futility of attempting to find 
moves in the game of Go by trying brute-force, look- 
ahead techniques which have been used previously. It 
is one of the prime reasons the game is so difficult to 
program. Instead, we will develop a series of routines 
which will examine the present board position in the 
hope of being able to choose some likely moves. 
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@ Does your micro chat to 70,000 people across the UK? 








@® Can your micro interview pop stars, hackers and doyennes 
of the computer industry? 


@® Can your micro provide the answer to your technical and 
software problems? 


@® Could your micro send and receive telex’s worldwide? 


@ Does your micro do your shopping for you—and have it 
delivered to your door? 


@ Is your micro an answering machine, delivering your 
private mail whenever you log-on? 
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—------------ 


To: Micronet 800, 8 Herbal Hill, London EC1 
Please send me a brochure on Micronet 800 




















| | 

Name 

Address____ | 

| 

Micronet 800 . 3 __Teephone Nos 

8 Herbal Hill, London EC1R 5E] f 
Telephone: 01-278 3143 Age oee lh Micro 
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*x BYTEBACK x 


ARCADE GAMES 


sgiarsstiieensnecensamaucseres £16.00 ADVENTURE GAMES 










SOVSMOKAGONON aise. secesccsssncesesscyhicetuteisacdaessuss 
HG HOE WN SOVSUCI eas accdtesocoussstenscecssensacestocee £8.00 


BYTEBACK ,.ec72cPRins GARDENS, 


WARK, NOTTS NG24 4UW 





UTILITIES BUSINESS 





BOSD LANG acetaacesccssecxes ETT00) «ICE (EPROM). aiceiccscsccssccsscc £21.00 impacct Sales ................... £45.00 
CEI concen tnoserdsaPhesstteats FB CHDICG ....n..c55 sets ecdensenend £12.50 impacct Purchase Ledger £45. 
SOOM sce pcsakesaceiawvnpecasteaeS SOB. ALUCG Lio oc cisasas crete =cscasesccs £11.00 impacct Nominal Ledger £45.00 
PADDCHEAIG: ...cussccciesisnseoees | | ob ere] ge £8.50 Impacct Stock Control £45.00 
BT THE GUNN chk. carsocsveeeoed £9.00 ICE (complete system) ...... £50. Impacct (comp. system) £170.00 
Lands Of Havoc ................ £16.00 § QDUMPS ......006......6.2800..0600 £9.00" -ATCHiVer ......acck.da...net £16.00 
Cuthbert In Space ............. £12.00 Supercharge ..................... £49. OSpeUM. ....0a.... tee hese £16.00 
Crazy Painter ................... £11.00 Super Sprite Gen. ............. £19.00 Decision Maker ................. £34.00 
JQEMIGN cieccvrsssssteenestsvcrsscscuas £8.50 Super Astrologer ............... £19.00 Cash Trader ..............0... £60.00 
CNS on sons 8B etietnenems COD GCOSINOS: ..0....sccseee tiers £1Z:350' Touch (N’ Goes. 2... £21.00 
BOUNGGN sii calassieiesstecatecsvecosss £8.50 Cartridge Doctor ............... £12.50 Project Planner ................. £34.00 
WEREHOl o.2 accscstncessbeansce £17.00 OL -Palnt....... "222222 £21.00 Entrepreneur ..................... £34.00 
2 TST 5 £11.00 Macro Assembler .............. £16.00 Home Finance (Buzz) ........ £21.00 
Gardenen® Ne. css. chsaiedlans: £21.00 Integrated Accounts .......... £78.00 
BRAIN GAMES/SPORTS UC eee ne SDT £21.00 
C1) a £12.50 LANGUAGES 


Be oe a ee, eee SROMND | OAV soca sd sehen aschadoteea et £16.00 MetacomcoC .........0.000..... £78.00 
Match Point ......cccccsssceescese £12.00 Classic Adv./M. Quest ......... £8.50 | Metacomco Pascal ............ £70.00 
SSICMOMGIN: iacattystcacsceanenccom tke THI ce \WESE 88 Seevessasssaxeesdactnaiaters £12.50 Metacomco Lisp ............... £48.00 
Super Backgammon ......... URED 6 CHUNG capt sheteteons coset casseee ed £12.50 Metacomco BCPL ............. £48.00 
FIGHORAIY cssiss.cccnvsiesiessectss SUD —- NOMESIS! (ic... cccteccccscnas £12.00: ‘SUpOrtOlthh 2.2 sesccccccccccs, £23.00 


EXDanGOIAl 2OG ices 5.cks.ccseesiss ceeeceecaptaeeaseaseess 


Seikosha SP1000 QL Printer £238.00 
(With Centronics Interface) 


PLUS ALL LATEST SOFTWARE/HARDWARE 
ALL PRICES INCLUDE VAT AND FIRST CLASS POST 
TELEPHONE (0636) 79097 FOR PERSONAL ASSISTANCE 
send Cheque/PO to: 








Metacomco Assembler ..... £30.00 


EXDONGORANY O02 iiscecacsatiredasssscasrmeceseccerives £119.00 


NOW! 
COMPUTER 
SCRABBLE 

Native 

SINCLAIR QL 


“Probably the best 
game available 


for this 


navecentlay=i 
(MICROSCOPE 6/2/86) 


Deep in the land of the Hidden Kingdoms, 
guarded by a vicious and evil dragon, 
can be found the Elixir of Life... 
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DRAGONHOLD 


Dragonhold 3 





is an animated auanrve 
adventure game for the Sinclair QL 
And just L@OK at these features - 


Four-way SCROLLING map graphics 
cil spel to over screens!) 
ndividual computer controlled 
animated characters that you can 
communicate with ; 
Extremely detailed hi-res graphics 
Both visual and text puzzles 

Game variations and new challenges 
each time a. new game is generafed 
Save game feature - you can save and 
play as many different variations as 
you like! 


Available on microdrive ee for 


£19.95 includin . & p. Send cheque 
or..P.0.- t6 aa P q 

11 Bannerdale Road 

Sheffield S7 2DJ 


COMPUTER 


SYSTEMS Tel: 0742 583665 





| ADDRESS 


Waddingtons Games Lid. SCALEXTRIC" !s a registered trade mark of 
| Hornby Hobbies Lid. SCRABBLE* trade mark and copyright licensed by 





* Available Now! t CBM 64 Scalextric, £9.95 (cassette) 


Please send me SCRABBLE* for the 
SINCLAIR QLcomputer, at £14.95. 


| NAME 


Software by... 


Leisure 
Genius — 


3 Montagu Row, London W1H 1AB. 
cS EEE El EEE 


POST CODE 


CLUEDO* trade mark and copyright licensed by Waddingtons Games Ltd 
MONOPOLY® is produced under license from Parker Brothers and 


JW Spear & Sons PLC All copyrights reserved LEISURE GENIUS’ is 
a registered trade mark of Winchester Holdings Ltd 





14.95 (cart) 


O Available 2nd quarter. 





eT SSE EES BS EEE TEES Ee 
MAIL ORDER: 
Please send cheque or Postal order to: LEISURE GENIUS, 3 Montagu Row, London WIH 1AB. 
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espite being one of the oldest computer 
v languages in use, LISP has been proving 
popular in recent years. That is evident by its 
use in research and development in the growing field of 
Artificial Intelligence. 

SO, why has this archaic language been receiving so 
much attention? LISP is very different from the more 
accepted high-level languages, such as Pascal, BASIC 
and FORTRAN. Unlike those expression-based 
languages, everything in LISP is defined in terms of 
‘lists’. If you want to include some data, it is shown in 
a list format. Manipulating data is carried-out by 
functions, which have been defined in terms of lists 
and operate on lists. It is that simple and uniform 
syntax structure which has made LISP so exceptional 
among computer languages. 

The uniform structure of LISP has also helped the 
language avoid another of the major pitfalls — 
compatibility and portability. As a language becomes 
more popular, new implementations of it arise, each 
designed for slightly different applications. That tends 
to create a wide variety of dialects, none of which is 
fully-compatible with other implementations of the 
language. To an extent that has also happened with 
LISP but the language is such that only the basis of it is 
usually defined. 

Other functions are then created by the user for 
particular jobs. That makes the language particularly 
portable. If a program written with one version of the 
language uses functions not normally accessible in a 
different version, it is easy to define them. The ‘list’ is 


Fo Figure One: Basic 
List Structure 


_ Pointers 


Figure Two: Array 
Structure 
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ISP: THE LANGUAGE 





Twenty five years after its invention LISP is fast becoming the popular language of Artificial 
Intelligence programmers. Charles Gerrard introduces our tutorial series. 


a fairly familiar concept in computing. For instance, if 
you were to type on the QL: 


PRINT PEEK(999) 


you get the answer 80. In this case, the number 999 is 
the ‘pointer’ and the number 80 is the ‘data’ accessed 
by the pointer. There is no reason why we should not 
consider the number 80 as a further pointer. Thus: 


PRINT PEEK(PEEK(999)) 


gives the answer 96, That, in turn, might be considered 
either as data or yet another pointer to a further 
location. Considering numbers in that way we can 
create a list structure (Figure one). The major 
differences between a list and an array — Figure two 
— js that the list has no set length and is much more 
flexible. 

At present, the list shown in Figure one is of little 
use, since it holds no information. Information, 
however, can easily be held by considering each 
pointer to access two consecutive locations, as shown 
in Figure three. By including that concept in our list of 
pointers we can create a variable length list of data — 
Figure four — but the story does not end there. 

Striving for further consistency, LISP does not 
consider the first item of our two-location construct to 
be data. Instead, both locations are assumed to hold 
pointers — Figure five — so our list from Figure four 
is represented by the structure shown in Figure six. 
What advantage does that have? Well, though Figure 
six has the data pointer accessing data, since it is 
treated in the same way as any other pointer, there is 
no reason why it should not just as easily access 
another list — Figure seven. It is that flexibility which 
makes the list a far superior form of data structure to 
the array, allowing multi-dimensional constructs of 
variable length. With a list, itis not necessary to reserve 
Storage for items before they are used, making 
memory allocation much more efficient. Also the 
dynamic quality of this form of structure means that the 
list can easily grow or shrink to meet the present 
requirements. 

We have seen how lists are stored internally but how 
are they shown within the LISP syntax? Simply 
Surrounding a group of objects with parentheses will 
suffice. So: 


(ABCD) 


defines a list of four items. The technical term for them 
is ‘atoms’ and they may consist of any type of data. 
Note that spaces, not commas, are used to separate 
atoms, unlike other high-level languages. If we 
consider that in terms of the internal representations 
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store doto, 


Figure Three: 


PEERS LSS 4o4ee By 


we have discussed, we immediately encounter a 
problem. How does LISP know where the end of the list 
is? In the foregoing example, we have only four items, 
so we must have some method of ending the list. That 
is done using a special list structure Known as NIL. It is 
an empty list — Ie, a list containing no items — and is 
used to terminate finite structures. So the internal 
representation of: 


(ABCD) 


would be as shown in Figure eight. 

We have also examined the internal structure of a 
list containing lists. That is represented easily in the 
language by further parenthesised items. For example: 


(AB(CD)(EF)) 


is a list containing four elements, the third and fourth 
elements being lists containing two elements each. 

As in any other language, LISP must have a way of 
issuing commands to act on the list data. That is done 
using functions, which are written in the form: 


(fluncABCDE...) 


where the first item in the list is the function name and 
the remaining items are the functions arguments. A 
simple example would be to write a function which 
adds a list of numbers. In BASIC, we might write: 


i Teaser ae 36 


whereas in LISP we would make use of the addition 
function, PLUS. That would be written in the form: 


(PLUS 1234 56) 


When LISP finds that kind of construct, it will always 
try to execute the first item in the list, assuming it to be 
a function, and the remaining items will always be the 
function’s arguments. The final value is passed to 
whatever may be outside the bracketed expression. In 
other words, you can imagine that the entire 
expression is replaced by the answer. Thus, with PLUS, 
which can take any number of arguments, the 
following statements would yield the same result: 
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(PLUS 1 2 3 (PLUS 4 5 6)) 
(PLUS 1 2 (PLUS 3 4) 5 6) 
(PLUS 1 (PLUS 2 (PLUS 3 (PLUS 4 (PLUS 5 6))))) 
In many cases, the result of a function will be passed 
on to more complex calculations. As in BASIC, we can 
assign the result to a variable. Retaining the consistent 
structure, that is again performed by a function. In this 
case, the function SETQ. So, the BASIC expression: 


LETX=14+2+34+4+4+5+6 
would be written as: 
(SETQ X (PLUS 1 2 3 4 5 6)) 


Figure Four: A data 
list 


LJ 





As you can see, SETQ expects two-arguments, the 
first of which Is a variable, while the second can be any 
legal construct producing a result. LISP makes no 
distinction between integer, real and character 
variables, so ‘X’ need not only be assigned results 
from, say, arithmetic operations, but could just as 
easily be assigned character data, or even lists. 

One difficulty which you may of noticed is that a list 
must start with a function, because LISP always tries to 
execute the first element. That could cause difficulties 
if all we wanted to do was to create a list of data. For 
instance, if we were to write the list: 


(SINCLAIR QL WORLD) 


which is a list of three unspecified items, LISP would try 
to evaluate the expression by assuming SINCLAIR to be 
a function, with two arguments. We can avoid the 
problem by preceding the entire list with a single quote 
(’), SO, to create a three-item list of data, as shown, we 
would need to write: 


‘ (SINCLAIR QL WORLD) 


Variables can be of any type, so we could easily assign 
the above list to a variable with: 


(SETQ X ’ (SINCLAIR QL WORLD)) 


There are three primitive functions, found in all 
implementations of LISP, which are necessary to 
manipulate the list structures. They are CAR, CDR and 
CONS. The last of those stands for CONstruct. CAR and 
CDR data are far more unusual, dating from the original 
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implementation of the language. They are acronyms 
for Contents of Address Register and Contents of 
Decrement register respectively. 

CAR and CDR are used to split list components. 
Taking a single list argument, which must have at least 


one element — ie, not the empty list, NIL — they are 


complementary to each other. The function CAR 
returns as its result the first element of its list 
argument. Conversely, CDR will remove the first 


element from its list argument, returning the remainder 


of the list as its result. So: 
(CAR ’ (ABC DE) 


would give the answer ‘A’. The first item, returned by 
CAR, could be an atom that is not necessarily the case. 
There is no reason why CAR should not return a list as 
its result. Thus: 


(CAR "((A B) (C D) E)) 


would return the list (A B). 
lf we were to use CDR on the same two lists, we would 
get everything but the CAR element. So: 


(CDR ’ (ABC DE) 

gives the list: 

(BC DE) 

and 

Use of consecubive pointers, 
i | 


Figure Five: 


(CDR ’ ((A B) (C D) E)) 
would return the result 
((C D) E) 


which is a two-element list, the first element of which 
is a list with two elements. 

tis important to note that CAR and CDR do not change 
their list arguments physically but return a pointer to 
the appropriate data structure. Thus, if we assign a list 
of five elements to the variable X: 


(SETQ X’ (ABCD EB) 
then find the first element, with 
(CAR X) 


the list X would not have changed, still having its 
Original five elements, but 

(SETQ X (CDR X)) 

would change the list, throwing away the first element 
(A) of the list, then re-assigning it. 

That is satisfactory for splitting list structures but we 
also need a command to build list structures. That is 
CONS which requires two arguments which it will 
concatenate into a single list, returning this list as its 
result. So, the command: 

(CONS ’A (BC DB) 

would return the complete list (AB C DE). Again, there 
is not reason why the first argument of CONS should 
not be a list, rather than a single atom. Thus: 

(CONS (A B) ‘(C D E)) 

would return the four-element list ((A B) C D E). Take 
care here, because CONS did not produce the list (A B 
C DE) as might have been expected. Each use of CONS 
will always add a single element to the start of a list 
structure. If that element is a list, the first element of 
the result will also be a list. To get the latter list we 
would have had to use something like: 

(CONS ’A (CONS ’B '(C D E)) 

where the nested calls give the required result. 

It is common to find these instructions nested, so 
(CDR (((A B) (C D) E) 

will return ((C D) E), and 

(CAR (CDR ’(A B) (C D) E))) 

will give (C D), which is (CAR ’((C D) E)), then 

(CAR (CAR (CDR ’(A B) (C D) E)))) 

will produce “C”, which is (CAR '(C D)). 

That can soon become tedious and the ever-prolific 


Figure Six: True list 
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brackets are already becoming confusing. Fortunately, 
most LISP implementations allow abbreviations of 


them. The abbreviated functions still begin with a ‘C’ 
and end with an ‘R’ but can have any combination of 


‘A’s and ‘D’s in between. There will usually be a limit 
on them and on most micros — including the 
Metacomco package for the QL — the limit is set to 


| three. So, the command: 


(CAADR ‘((A B) (C D) E)) 


would give the same result as the previous example. 

It can often take a time to become proficient with 
these functions. One easy method of visualising exactly 
what is happening is to imagine the list diagrams. From 
Figure four, the CAR gives the left-hand pointer and 
CDR the right-hand pointer of the two-location 
element. Try using this method with the list diagrams in 
Figures seven and eight, where: 


(CAR ‘(A B C) D E)) gives (A B C) 
(CDR ‘(A B C) D E)) gives (D E) 
and 


(CAR (ABC D)) gives A 
(CDR (A BC D)) gives (BC D) 


The CONS function can be viewed as CONStructing a 
new node, such as the one in Figure five, and assigning 


the CAR and CDR pointers to its two arguments. That 
js obviously correct once you realise that: 


(CAR (CONS P Q)) is P 


and 


(CDR (CONS P Q)) is Q 
thus, 
(CONS (CAR ‘(A B C)) (CDR ’(A B C))) 


gives the original list (A B C). 


Figure Seven: Lists 
of lists 





Figure Eight: 
Terminating list 
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Building lists from scratch using CONS can be a long 
job, requiring nested calls, such as: 


(CONS A (CONS 'B (CONS ’C (CONS. . .)))) 


to build the list (ABC... .), with each call adding a 
single element to the front of the list. Fortunately, LISP 
Offers an alternative, with the function LIST. LIST can 
take any number of arguments and works by 
evaluating each argument and returning the result in 
the form of a list. So: 


(LIST ‘A 'B’'C ’D'E) 
would produce the list of characters (A B C D E). You 
should be very careful when using quotes in a list 


function, remembering that it evaluates its arguments. 
SO: 


(LISTAB CD €) 


would expect “A” and “B” to be variables. For instance, 
let us say that A=22 and B=33. Then the foregoing 
would give the list (22 33 C D E). Similarly: 


(LIST 123 (PLUS 2 2) 


would give the result (1 2 3 (PLUS 2 2)), regarding the 
(PLUS 2 2) as the final element of the original list, itself 
a list of three elements, none of which should be 
evaluated, because the entire list was preceded by a 
quotation, but 


(LIST 1 2.3 (PLUS 2 2)) 


would return the more likely result (1 2 3 4), by 
evaluating the (PLUS 2 2), 


We have now covered all the major ground work of 
LISP but being very different from conventional 
languages, it may be difficult to realise how it could 
ever be used effectively. In the next instalment, we will » 


_ look at how LISP allows you to define your own 


functions. They are the basis of all programs. We will 
also look at how to implement conditions — much as 
IF... THEN . . ELSE in BASIC — and the principles of 
recursion, which are often used in the language. 
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PUZZLE PAGS 


Marcus Jeffery provides 
the elusive solution to 
January's brain teaser 
and poses another cryptic 


problem to try your 





patience. 


The 3'7' series puzzle from the January, 
1986 issue seems to have created 
plenty of interest. The problem was to 
generate the series of numbers in the 
series 3'7), starting 1,3, 7,9, 21,... Hav- 
ing found a method of doing it, you 
had to generate the 1,500th term, then 
sum all the digits in that number for 
the final solution. 


7 


a ci 


generated originally, that gave the ans- 
wer to the 1,500th term. 

It is at this point that the second 
problem occurred — how to total all 
the digits. It may sound easy but unfor- 
tunately the answer contains 35 digits, 
just a little beyond the accuracy of the 
QL. Therefore it was necessary to write 
your own arithmetic routines to work 
on large integer numbers. 

The most common method was to 
use arrays to represent the numbers, 
so that each element of the array would 
show part of the number, say three 
digits, and the next element would 
show the carry from that, and so on. 
Alternatively, some people preferred 
to use strings to represent the long 
integers, using the QL built-in coer- 
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Figure One. Look-up table. 


Very few people were caught by the 
red herring’ program generated. Nor- 
man Hilton reckoned that the ‘REPeat 
divide’ loop would be executed nearly 
5*10” times, taking more than 10” 
years to run, which he felt might miss 
the January 31 deadline. Martin Harris 
also appreciated the humour, which 
did not fool him. Instead, he had a 
good laugh contemplating the number 
of universes which might come and go 
whilst the QL was solving the problem. 

Unable to find any expression which 
would produce the series, many 
people adopted the sledgehammer 
tactics of producing an unordered file 
of as many numbers as possible. Hav- 
ing done that, a number of sorting 
algorithms were used — including the 
quicksort from QL User, August, 1985. 
So long as sufficient numbers were 


30 
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cion to convert each string character 
into a number for the multiplication 
routine. The advantage of the first 
method is that storage can be reduced; 
the latter method, however, is more 
elegant and makes the large numbers 
slightly easier to print. 

There are a number of ways to solve 
the problem, other than generating a 
huge file, then sorting it. Based round 
the table layout — Figure one — many 
people turned to logarithms to find the 
solution. Derek Fairburn describes 
that neatly, though the non-mathemati- 
cians may like to skip the next bit. 

Recognising that 7’ is 3“! where ‘k’ is 
Tog 3, 3'7' can be written as 3°**"), 
Since p’ always increases as ‘y 
increases, for any constant ‘p’, then 3'7 
increases in the same way as it+k*j. 
Therefore it is necessary only to find 


the 1,500th term in the series of values 
‘a=itk*). That can be computed fairly 
easily but encounters the problem of 
accuracy. It is necessary to find an 
approximation for ‘k’ which is close 
enough to ensure that ‘a’ has a unique 
value for every pair of ‘i’ and 7 values 
involved. It seems that a value of 
k=1.7712 gives a unique ‘a for 
i<=1107 and j<=625, which is well 


I would like to thank John Cook for his 
very detailed analysis of the problem. 
He would also like to point out that the 
sum of the digits in the 400,000th term 
is 2,511, which was solved by his pro- 
gram in two-and-a-half hours. Now 
there is something for you to work on. 
This month's winner however is J. 
W. Bray of Harrogate, North Yorkshire 
who receives a year's free subscription. 
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Figure Three. Encrypted question. 


beyond the 1,500th term in the series. 
Having written a program to find the 
1,500th element, the only remaining 
problem was to print that number. 

Figure two shows a SuperBasic pro- 
gram which will generate the series of 
numbers, printing each number. It 
works from Figure one, by holding a 
large array of values for powers of 
seven (up to 7”. At each iteration of the 
main loop, the floating point form of 
this array (flsevens) is searched for 
the next smallest value, which will be 
the next term in the series, assuming 
that the array is large enough. That 
value is printed, then multiplied by 
three, to give another unique value 
further in the series of numbers. 

So, in conclusion, the correct ans- 
wer is 144’, which is obtained from 
adding the digits in the number: 
1314829220567723794371407416 
2880083 





On with this month's teaser. A few days 
ago I was sitting in front of my QL, wait- 
ing for it to find the answer to life, the 
universe and everything, musing over 
what question to ask. I typed-in the 
question and was about to print it out 
when I noticed it had changed. The QL, 
in its wisdom, had decided to execute 
a small encryption program on which | 
had been working and the question 
was then rather garbled, as you will see 
from Figure three. 

Normally it would have been no 
problem but! could not remember the 
question. Fortunately, I still had the 
original encryption program, given in 
Figure four. You guessed it — the pro- 
gram had encrypted itself. 

Well, that’s life. Try as I might, | 
could not remember the original ques- 
tion. Knowing how intelligent the aver- 
age QL user is, ] am sure you will be 
able to work out the answer. 
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REMark @L USER 3174 Solution 
REMark (c) M. C. Jeffery 

DIM sevens%(40.15),fl_sevens(40) 
DIM d$(5) 

d$="00000" 

initialise_sevens 


eount = 1 
number = 1500 


REPeat next_digit 
lowest = 1E99 
FOR best = O TO 4O 
IF lowest>fl_sevens(best) THEN 


lowest = fl _sevens(best) 
element = best 
END (LPF 


END FOR best 
long print element 
long multiply element, 3 


Figure Two. 


fl_sevens (element) = 3 * fl_sevens (element) 


count = eount + 1 


IF count > number THEN EXIT next_digit 


END REPeat next_digit 


DEFine PROCedure initialise_sevens 
FOR power = O TO 4O 
FOR"-unitcse = 0 TO 15 
sevens%(power,units) = 0 
END FOR units 
END FOR power 


sevens%(0,0) = 1 
fil sevens(0O) = 1 
FOR power = 1 TO 4o 


FOReunttse—=-0--TO:.25 


sevens%(power, units )=sevens%(power-1,units) 


END FOR units 
long _ multiply power, 7 


fl sevens(power) = 7 * f1 sevens(power-1) 


END FOR power 
END DEFine initialise sevens 


DEFine PROCedure long_multiply (1:7) 


carry%=0 
FOR units.<=: 0.70 15 


result% = j3 * sevens%(i,units) + carry% 
sevens#®(i,units) = result% MOD 1000 


carry% = result% DIV 1000 
END FOR units 
END DEFine long multiply 


DEFine PROCedure long_print (i) 
PRINTcoun:G, 
FOR, uhics. = 1.5). TO. 0.<>LEP. =1 
ad$ = "oo" & sevens%(i, units) 
PRINT d$((LEN(Cd$)—2). TO LEN(dG$))->; 
END FOR units 
PRINT 
END DEFine long print 
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RULES: 


All entries must be written on a post- 
card with the panel below stuck to it. 
Any other form of entry will be disqual- 
ified. Entries must be sent by post to: 

Puzzle Page, 

Sinclair QL World, 

79-80 Petty France, 

London SW1 
to arrive no later than Friday, April 11, 
1986. 

The winner, who will receive a free 
years subscription to Sinclair QL 
World, will be the first correct entry 
drawn from the editor's random 
encryption device. All entries will be 
judged by the editor, whose decision is 
final and no correspondence will be 
entered into regarding the result. 
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ENTRY FORM: 


The answer to the question is: 


| Name: 


| Address: 
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MICROVITEC MONITOR 


* 


Specifically designed for the QL 


Offers excellent 85 column text performance and 
' Outstanding graphics capabilities 
* 


Incorporates high contrast medium resolution cathode 
ray tube 


Optional tilt and swivel mechanism 
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Includes lead 
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SILICON EXPRESS 






DISK DRIVE SYSTEMS 


Insider Disk Interface Card 
Fits snugly into the case of the QL, connecting to the 
main expansion port 

incorporates complete ROM-based Toolkit utility and 
includes new software utility disk 
Full microdrive emulation facility 


Fast access times e.g. boots ‘Quill’ in under 10 
seconds 


Full two year guarantee 


0 







_Disk Drives 
31" single or dual track double sided with small footprint 


51%” single or dual 80 track double sided with power 
supply for EACH mechanism — high reliability 


Utilities Disk 
User friendly utilities disk with each system 
Easy microdrive to disk file transfer 


High performance 80 column presentation ideal for 
word processing or spreadsheet applications 
Green or Amber display 


Rugged cabinet with carrying handle 
Tilt facility 
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Increased performance frommemory —+_ 7 day return service 
intensive software e.g. Abacus, Quill, * Contact our Sales Desk for further details 
Archive 
WARNING | 
f Expansion ports unaffected by memory Memory expansion boards may require excessive 
No power problems power from the QL power supply. This will affect 
* 12 month warranty the reliability of the QL when used with other 
* Includes Psion software — Abacus devices needing power from the QL. This is NOT — 
Archive, Quill & Easel , true of the Quattro memory. 











EPSON LX-80 . CENTRONICS 
NLQ DOT MATRIX PRINTER PRINTER INTERFACE 

* Upto 100 characters per second * Connects QL to any Centronics compatible printer 

* Correspondence or draft quality printing * Plugs into SER1 or SER2 port and directly into printer 

* Wide choice of typestyles * Fully self contained with 3 metre cable 

* Easy to change ribbon cartridge * 1K buffer 

* Standard Centronics connection 

* Requires Silicon Express Centronics interface for 

connection to SER1 or SER2 ports 
ORDER FORM eee ee ——— = 

For immediate despatch of goods you can order now by phoning us on Leicester (0533) 374917 quoting your Access or Barclaycard number. i 
Or fill in and post the coupon — no stamp required, and we will despatch your goods within 14 days. 
Please allow 14 days for delivery of postal orders — telephone orders immediate despatch SYSTEMS i 
Insider Disk Interface board (IDI) @ £113.85 QUATTRO QL @ £325.004 + Free thermal printer £50 voucher please tick 
Single 80 track double sided drive system including IDI @ £199.00* MDVA 128K QL System @ £199.95+ i BP clog DEL ERY ook ere oe Se i 
Dual 80 track double sided drive system including IDI @ £270.00" MDVB 128K QL System @ £275.00 Access or Barclaycard details for £125.00 to i 
*3¥2"0 5%’C please tick MDVC Quattro QL System @ £395.00¢ Silicon Express Limited. 
Double sided double density diskettes 51/4” pk of 10 @ £25.00 MDVD Quattro QL System @ £675.00 PRICES INCLUDE VAT ROST SACKING ; 
Double sided double density diskettes 312" pk of 10 @ £35.00 MDVE Quattro QL System @ £850.00 - - 
Centronics printer interface @ £29.95 DDA 128K QL Drive System @ £395.00+ POST TO: Silicon Express Ltd., i 
Epson LX80 @ £285.00 DDB 128K QL Drive System @ £465.00¢ FREEPOST, Rothley, Leicester LE7 7QZ 
Microvitec 1451 DQ3 colour monitor @ £275.00 DDC Quattro QL Drive System @ £675.00 Name & Address i 
Tilt and swivel for above @ £24.00 DDD Quattro QL Drive System @ £899.00 






Teco TM1265 monochrome monitor @ £79.00 DDE Quattro QL Drive System @ £1099.00 
512K Quattro memory upgrade @ £125.00t 
















— Silicon express 


— Silicon Express Limited Silicon House, Fowke Street, Rothley, Leicestershire LE7 7PJ © U.K. Tel: 0533 374917 
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to the microdrive 


Speeding up your data access with Viglen disc drives 
means instant reliable access every time 


specially designed to fit neatly into the case of the Sinclair QL, the Q-Disc Interface 
Board (CST) and companion disc drives are colour-matched to compliment your QL computer. 
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Prices correct 
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Visit our showroom Bo Ve 
ey 
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Saturday 9.30 - 4.00 
—_ Ee ee eee 


Post to: VIGLEN COMPUTER SUPPLIES. 





All drives are compatible 
and ready to plugin and use with all currently 
available QL Disc Interfaces. When bought 
with the Q-Disc Interface, they are ready to 






lug in an : 
Peg ee dno’ , ns la i Unit 7, Trumpers Way, Hanwell W7 2QA. 
Other peripherals for the QL éS:afot vpfiptorscand Credit card holders may order by telephone on 01-843 9903. 
MONITORS Prilios Monochrome Green 85 pes: £3 forprintér | please send me 
OGOU BINT QOL ie irs 5 Se IRS Cee . 
fas Spt al lac ar £89 | Unit 7, [| enclose Cheque/P.0. for including carriage. 
Philips Colour TV/Monitor Trumpers Way, F Make cheques payable to Viglen Computer Supplies. 
Pit sini Makan See} Hanwell? 208. Fone 
Colour Monitor CM8501 ........ £199 | Tel: 04-843 9903 t 
Philips Medium Resoluti ; 
eS Colour Monitor CM&533 £299 NEN CSS: 
Taxan Kaga KP810 - 
eo. BOSTON 
Canon PW1080A £229 oe f 


I | prefer to pay by ACCESS/BARCLAYCARD (delete one). 


Credit Cards valid only 

i if signed by card holder. 
Card No: Address must be the 
same as card holder. 


PRINTERS Quen Data Daisy Wheel Printer. £499 


Serial to Centronics Interface lead 
ES for above printers................ £25 

Perspex printer stand for: 

80 col. printer £4 6.95 


{S6COU PINION, 22. 5... on Hes £27 
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Sinclair/QL World April 1986 





UNPREDICTABLE 
Micro. 


Our guide to QL 
astrology continues 
with this program to 
— Calculate planetary 
~ positions. 

~ By John Dice. 





TO CALCULATE the position of a planet to the kind of 
accuracy most astrologers need — let us say one 
minute of arc at the most — you have to use different 
styles of mathematics depending on the planet with 
which you are dealing. Fundamental to the calcula- 
tions of all of them except the Moon is the solution for 
elliptical motion. 

Our Solar System is held together by the gravita- 
tional pull exerted by the Sun on each of the planets. 
The factors which affect the orbits of the planets are to 
the masses of the Sun and planets and the distances 


APHELION 


Sinclair/QL World April 1986 


between them; twice the distance results in a quarter 
of the attractive force. That dictates the elliptical shape 
of each of the planetary orbits. An ellipse looks like a 
squashed circle and has two foci. The Sun occupies 
one of the foci, as you can see in the diagram. 

The mathematical properties of ellipses are well- 
known, so we may calculate a planet's position with 
relative ease. For our minute of arc accuracy that is all 
we have to do — with two minor corrections — for 
Mercury, Venus, Earth (Sun + 180°) and Mars. 

Planets further from the Sun than Mars need closer 





attention. There the gravitational control from the Sun 
is much weaker and the planets are more easily ‘per- 
turbed’ from their mean positions by the gravity of 
neighbouring planets. Those perturbations can 
account for up to one degree difference in logitude for 
Pluto, the most distant planet — we think. The prob- 
lem is that nobody has yet produced a direct 
mathematical solution of this complex effect. People 
who tackle the perturbation problem seriously, like 
the U.S. Naval Observatory which publishes high- 
accuracy planetary ephemerides, tend to use a process 
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PLANETARY POSITIONS 


1900 s#="AriTauGemCanLeoVirLibScoSaqCapAquPis" 

110 pé="SurnMooMerVenMarJupSatChillraNepPluNod"” 

120 DEFine FuNction wCx) 

130 M=xX-SE0Oe INT CXS 360) 

140 FETurn x 

i230 END DEFine 

160 DEFine FuNction frac¢x) 

170 x=xe—-INT Cx ) 

reo FE TMEeH x 

i970 END DEFine 

200. DIM lgq¢t2)2 DIN dgci2d 

1000 INPUT "Name's sn 

1010 INPUT "Day"sa 

1020 INPUT “Momth sm 

1030 INPUT "Year"sy 

TOPO INPUT "Hot eh 

fOS0 TNPUT: “Min” sari 

1660 INPUT *“Fime Zé6éne CE-Wt)” :t2 

1070 INPUF “Delta-T” sat 

1020 PRINT? PRINT 

1090 ygmt=tztht+mi /60+At/ 2600 

1100 1=12*CytdS00)4¢m—-S2 G=CZ*HRCI-INTCi/12Z) #1 29+74+3565819/12 

1110 j=INTCjdt+dt+INTCi/dS)-S208321F je=2.299171E6 THEN GO TO 1120 

1120 j= Se ee ey ee cae 

1130 t=(j-2-d13502E6-—.5+gmt/2d)/3652 

2000 RESTORE ; 

2010 GO SUB 3O00:LU=RADCuCa) > 

2020 FOR p=1 TO 5S 

2020 GO SUB 30O00tma=FADCuCad) tea=matGO SUB BOO0Ote=arGO0 SLB Sg te an=FRADCa>:GO SUE 
20008 ap=RAD(a):G0 SUB SO0Orin=RADCa)=READ ax:IF p=e THEN pHs 

2O0d0 a=ea-ma-e*SINCead:IF ABS(CadZ1E-&S THEN ea=ea-a/Ci-e*CoS¢Cead)2GO TO 2Od0 

ZOS0O vweax* (COS Cead—e) ty=H=ax*SINCead*SMRTC1l-exe) 'GO SUB 3010 

ZO6Q IF p=i THEN xe=xhiye=yhixh=Otyh=O 

2070 xwxg=xh-xetygq=yh-ye:zg=zh 

2020 rv=SORTCxg#exgtyg#*ygtzg*#zg)ilt=aerv/173-14 | 

2090 a=(1.720209E-2+5.95E-97)/SGRTCax)/C1l-e*ClS(ea)) i x=—-axSINCea)d ty=axC0S( ea) SU 

TCil-e#e):GO SUR 3010. 

2100 IF p=i THEN xwexht ywHyhixh=O8 yhao 

2110 xv=xh—oxw! syv=yh-ywse zv=ezh 

2120 xx=xg-lLt#xviyy= yore yN tee =zg-lt#*zv 

2130 IF p=i THEN rnu=C(-17-23527-1-737E-Z2*t)  #SINCLUD—-1-2729*#SINC ZC matap) >) /2600 

Z1d0 a= DEGCATAN(yy/xx)) tlq(p)sati1Boxc Cac Oo+Cyy<O)tnus IF Cxx*yv-yy*xvd2O THEN lg 
Cpo=—-lgcpo 

2150 dg(p »=DEGCASINCzz/rv)) 

21640 b=lg¢p)?:GO SUB 3020" 

2170 NEXT he TO 100 

2000 FREAD ah, cdi a=athetrcetet rae tetet sre Turn 

3010 ceed ee -~y*SINCap) th= X*¥SINCapd+y*#COS Cap) i xh= maeCOS(and-beSINCand*COS¢in) 

yh=a*SINCand+hecuscand*Coscin)? Zh=b*SINCin)> tRETurn 

3020 PRINT pSCsep-2 TO Sep 3 2 i=ABS Ch /3B08 qeitcH=tO#fracCq)tx=INTCcotITF x210 THEN 
PRINT" ": 

3030 PRINT XSSSCSHINTCisy+l TO S*#INTCI)+3) 3 INT C60#Ffrac(cd+eS)32IF b<O THEN PRINT 
mre" s 

S040 PRINT" :RETurn , 

[000 DATA 2359 .1333,-173d-idz,2-078 IE“ 922 222E 6é:REMark mean lunar node 

nee DATA 352.475 Basses eOS,— 1 eSE—d .-3+5SE-6,1- ee? , 74 -ISE-S5,-1-26E 77 ,07,0, 
50,0,101-2208,1: 719175 4. S278E— =0 , 32 S5E=-6,0,0,0,0,13 REMark Earth 

S020 DATA 102.279d, 149472.5,6 »dE-6 10, + 2056142 ,2.046E-5,~3E-2,0,47, TA594,1-13535205 
see( vote a, 05s 1.75375, «37O2RO O64 1-208 5E—G 047% OOZSS1, LsleCOSoE—S 7-1 <SSSE—-5,0, «<s5709 

sesREMark Mercury 


see DATA 212-6032, 58517-8,1+2661E-3,0,6+-S2069E-3,-d« 77d E-5, Fs 1E-8,0,75- 77965, 8 
985 ,d-16-d,0,5d.33d19, -5081861,-1.38639F-3,0,3-393651,1-0058E-3,-9-72E-7,0,-723 


rt a Venus 

2040 DATA 319.5294, 19139-86, 1 -S0S1E-d,1-194E—-6,9- 331 29E-2,9-2Z060E-5,-7-7E-3,0,0d8 
78644, - 7709917 ,-1-389E— 6,-9°SS5E—-6,2835-0d315, 1069767, 1. 3125E- 4,4: 13389E-6,1-3503 
So,7~G-75E-d,1-261E-5,0,1-52369712REMark Mars 
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called Numerical Integration on a big mainframe 
computer. Because of cumulative errors, very high 
accuracy is demanded and it takes a considerable time 
— not really viable ona QL, especially if you want your 
answers in seconds of computing time rather than tens 
of minutes. 

The most common expedient for a home computer 
is to generate the required perturbation functions by 
adding many sine waves of different frequencies and 
phases to synthesise or ‘curve-fit’ the errors. You then 
add those to the mean position represented by the 
elliptical model. It is the method used in Michael 
Erlewine's book, A Manual of Computer Programm- 
ing for Astrologers, published by The American Feder- 
ation of Astrologers, Inc. The Moon’s motions are 
perhaps the most complex of all and the sine-wave 
method is used extensively. 

I describe the solution for elliptical motion, giving 
better than one minute of arc accuracy for Sun to Mars. 
The input and output routines are not very elaborate 
— you may wish to add colours or specialised glyphs 
yourself. 

The first section of the program, to line 200, sets up 
strings and functions for later use. Then the time is 
INPUT as a series of integers to enable a Julian Day 
number to be calculated. Day 0 in this system is Jan 1, 
4713 B.C., but the program uses a Modified Julian Date 
counted from midday on 0 Jan 1900 — 31.12.1899. 
From that the Greenwich Mean Time is calculated the 
Century Increment T having a value between 0 and 1 
this century. AT is an irregular time correction allow- 
ing for variations in the Earth’s speed of rotation, 
hence the length of the Solar day. It is at present about 
54 seconds, and the accuracy freaks will look it up in 
the American Ephemeris or the Astronomical 
Almanac. Otherwise enter “0” and you will not be far 
wrong. 

Section 2000 is the meat of the program. The first 
thing calculated is the Mean Lunar Node — used later. 
That, like the other elements used in this program, is in 
the form A+B*T+C*T°+D*T°. All angular measures 
are converted to radians, A planet-counting loop is 
established, then the six Orbital Elements which 
define the orbit of a planet are evaluated. They are, in 
order of appearance: 


1. Mean Anomaly (MA). 2 fictitious mean position 
for the planet, shown at “A” in the diagram, measured 
from its perihelion (Greek: peri, near; helios, Sun — 
meaning that part of an orbit which is closest to the 
Sun). A circular orbit is assumed in which the 
hypothetical planet moves at a constant velocity. 

2. Eccentricity (E). A measure of how “squashed” 
the ellipse is. A circle is a special case of an ellipse with 
E=0, and where the two foci coincide at the centre. 

3. Ascending Node (AN). The angle measured 
from 0 degrees of Aries to the point where the orbit 
goes north of the ecliptic—the reference plane formed 
by the orbit of the Earth. 

4, Argument of the Perihelion (AP). The angle 
from AN to the planet's perihelion, measured along 
the orbit rather than along the ecliptic. 

- 5. Inclination (IN). The angle at which the whole 
orbital plane is tilted relative to the ecliptic. 
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6. Semi-Major Axis (AX). The size of the orbit in 
Astronomical Units. 1 A.U. is the semi-major axis of the 
Earth’s orbit — about 150,000,000 km. 

Line 2040 solves Keplar's equation for Eccentric 
Anomaly. Johannes Kepler (1571-1630) was the first to 
describe the elliptical orbits of the planets and estab- 
lished the laws governing their motion. His celebrated 
equation, EA=MA+E*SIN(EA) (all angles in radians) 
cannot be solved directly, hence the iterative loop in 
this program. It converges to an accuracy better than 
required in three or fewer iterations. EA looks like, 
and is, a fairly abstract quantity but has many computa- 
tional uses, as you will see. 

Line 2050 gives the X and Y co-ordinates of the 
planet's true position in its orbit. This co-ordinate 
system places the Sun at its centre (0,0) with the posi- 
tive X axis passing through the perihelion. The 
ROTATE subroutine (3010) rotates the whole ellipse 
in space and tilts it into the position it occupies in real- 
ity. The result is the rectangular heliocentric co-ordi- 
nates of the planet's true position. In this co-ordinate 
system, the X and Y axes are directed along the celes- 
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tial equator, and they are positive towards 0 degrees of 
Aries and Cancer, respectively — for the mean 
equinox and ecliptic of date. The 2 axis is positive 
towards the north celestial pole. 

Line 2060 stores the Earth’s co-ordinates and 2070 
subtracts them from the heliocentric co-ordinates of a 
planet to give geocentric positions. The Sun’s co-ordi- 
nates (0,0) are entered in 2060, so as to find its geocen- 
tric position. The Z co-ordinates are ignored in this 
practice, because the Earth orbits in the plane of refer- 
ence and always has Z=0. 

We are getting close. The accuracy at this point is 
probably a usable two minutes of arc incorrect at most 
for the Sun out to Mars for any date this century. We 
need to know the retrograde status of the planet and 
one of the two most worthwhile corrections, abera- 
tion, uses much of the calculation used for retrog- 
rades. Aberation really means correction for light- 
time. 


We deal with such vast distances in this Solar System 
that by the time the light from some distant planet has 
reached us on Earth, the planet and the Earth have 
moved somewhere else. What we want to determine is 
where the planet appeared to be at a particular time, 
rather than its true position. That may sound odd and 
some astrologers are doubtful as to the validity of such 
a concept for their work but most have not heard about 
aberation or thought about it, so the mainstream 
opinion is to go along with the astronomers on this 
one and correct for light-time. 

So line 2080 finds the Radius Vector, the distance 
from Earth to planet, and uses it to find the light-time 
in days. Line 2090 finds the elliptical Velocity vectors 
(in A.V. per day), then uses the ROTATE subroutine 
again to place those vectors in their positions. Lines 
2100-2110 convert the heliocentric velocities to 
geocentric and line 2120 multiplies light-time and vel- 
ocity to get distance travelled in the light-time. That is 
the aberation which is subtracted from the geocentric 
position in line 2120. 
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The second correction is notation, the irregular 
wobbling of the Earth’s axis due to the gravitational 
action of the Sun and Moon on the equatorial bulge of 
the Earth. Nutation is a short-term component of a 
much bigger and slower wobble called precession of 
the equinoxes which causes the point 0 degrees of 
Aries to move backwards through the entire Zodiac in 
26,000 years. Precession has been included in the 
values of the orbital elements given in the DATA state- 
ments but nutation must be dealt with separately. 

So in line 2130, when the Sun’s orbital elements are 
easily available, we calculate nutation from the Sun's 
mean longitude and the lunar node. That is added to 
the longitude derived in line 2140, which also negates 
the answer ifa retrograde is detected. Declinations are 
computed in line 2150 for those keen on declinations. 
Then the PRINT subroutine is called to print the posi- 
tion in degree and minute notation — then on to the 
next planet. 
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BIG BLUE SNAKES AS APL MOUNTS QL 


APL the highest of all high level languages developed over the years on IBM mainframes is now available on 


the Sinclair QL at only- 
APL available in “Keyword” or - ae G E } Le 
Original “Squiggle” versions. + £1.95 p.p. 














The QL development tool with 100,000 user heritage. 


What the users say: “Easier to learn than Dbase” 
“No silly limitations” EaBeBwaak 
“Models as fast as 123” 
“No compiling — so it’s easy to change”. IML ICIRIO“ | 
Order now by credit card (Access and Visa) 01-622-0395 or send coupon to: | (ATPL IL 
Micro APL Limited, 
Unit 1F, Tideway Industrial Estate, Pa et nl Wee 


87 Kirtling Street, London SW8 5BP. 


moo. To eee ee ee ee ee eee rT ee Or 


[_] Please send me more details about the power of QL/APL. Name 
[_] Please sendme ____— copies of QL/APL at £99.95 plus £1.95 p&p 
[_] | enclose cheque/P.O. made payable to MicroAPL Ltd. 
[_] Please charge my Visa/Access card number 

Card expiry date 





Address 











[ |] KEYWORD [_] ORIGINAL SQUIGGLE 


QL and Sinclair are trademarks of Sinclair Research Ltd. 





Tel No. QL/3/86 















(Prices include VAT. Please allow 28 days for delivery. For credit card telephone orders, phone 01-622 0395) 


TANDATA COMMUNICATIONS 
FOR THE SINCLAIR OL Bhai 
W LOW PRICE! Bee 
= eee 109-9! 5 


using all three as a complete matched system, 
full advantage can be taken of the integrated PRICES INCLUDE VAT 




















Telecommunications 
in accordance with the 
conditions in the 
instructions for use. 


run by British 
features. 





I'd like to know more about Tandata 





Q-CONNECT i communications for the QL. | 
Complete RS232 output for general ib vere | 
communications from 75-9600 baud with full | | 
two way buffering and flow control. Software 
on a micro drive to support all3 modules |p agrecc 
includes Prestel Viewdata/Videotex and 
: , VT100 emulation, and many other features. eenrtarott 69! steteptberc: 
Q-MOD | a ase Renan i omit 
an a A | Manual dial V23 modem operating at 1200/75 a ee 
bps and 1200/1200 half duplex. | tetNo 
Tandata Marketing Limited O-CALL | ) 
Albert Road North, Malvern, Worcs. WR14 2TL a a ar 
Telephone: 06845 68421. Telex: 337617 Tandat G. ; rT andata Marketing Ltd., 
oP 'prestel °7994 Telecom Gold 81: TANOO! Provides traditional pulse/loop disconnect —_ | albert Road North, Malvern, 
Prestel Pics pri ye hanks an plc auto-dial and auto ANSWET. | Worcs. WR14 2TL. | 
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This month a roundup of the best QL titles to have appeared in the last six months. 


To start, some of the volumes designed to 
increase your programming prowess. 
Among the 10 books Hutchinson 
publishes for the QL, no fewer than three 
cover SuperBasic programming. The 
lastest, Making The Most of The QL by Dick 
Meadows, aims to be a practical guide to 
using the QL both for beginners and more 
experienced users. It gives an overview of 
the SuperBasic language and includes 
chapters on peripherals, applications 
programming, and graphics. at 47.95, it is 
an ideal book for those who want to brush 
up their programming technique. 

SuperBasic on the Sinclair QL, by 
Donald Alcock, looks lightly at 
programming, and graphics. At &7.95, it is 
unusual style — handwritten text with 
plenty of diagrams and listings — should 
prove informative for those who want to 
expand a limited knowledge of the subject. 
Published by Cambridge University Press, 
it costs £5.95, 

Helping you release the full potential of 
the QL, is the claim made by Maximise 
your QL by Susan Curran and Ray Curnow. 
Published by Papermac at £8.95, it reckons 
to pick up where the user guide ceases. 
Topics covered include printers, the Psion 
packages, files and Microdrives, and 
graphics. It concludes with a look at the 
internal workings of the machine — 
memory management, Qdos, and the Qlan 
local area network. Intended for those 
inexperienced, or perhaps just confused 
users, who have exhausted the User Guide, 
it also includes some suggestions for 
applications. 

Adam Denning 's Advanced QL Machine 
Code makes light reading of a potentially 
heavyweight subject. Although not 
intended for the complete novice, it takes 
the time to give a general introduction to 
the QL and the 68008 MPU. Subsequent 
chapters deal with Qdos, incorporating 
machine code utilities into SuperBasic, file 
handling, multi-tasking, job control, and 
screen handling. The extensive 
appendices include games and utilities 
listings, as well as the Qdos systems 
variables. In all, it is a comprehensive 
guide for the machine code programmer. 
Published by Duckworth at £8.95. 

At the same price, from Sigma Press, is 
The 68000 User Guide by Lionel 
Fleetwood. It is the kind of book the novice 
would do well to read before tackling 
Denning's book. In common with most 
texts on microprocessors, it begins with an 
introduction to 68000 architecture — the 
physical structure of the chip. There 
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follows a section on assembler which deals 
with the instruction set and addressing 
modes. 

There are also chapters on using stacks 
and registers, moving data, writing 
subroutines, and bit-level operators. It is 
rounded-off with two chapters on how to 
improve your programming style. 

Two books on the same subject but with 
avery different approach are The Sinclair 
QDOS Companion, by Andrew Pennell, 
and Adrian Dickens’ QL Advanced User 
Guide. The Qdos Companion begins with 
a history of Qdos and then describes 
memory organisation with the aid of 
memory map diagrams. It proceeds with a 
detailed examination of multi-tasking, 
input/output, device drivers, interrupts, 
and external ROMs. Two more chapters 
look at the 8049 second processor and 
Qdos utilities. The style is informal and 
probably more suited to those who 
require an introduction to the subject 
rather than a reference manual. 

If it is a reference manual you seek, then 
look no further than the QL Advanced User 
Guide. Starting with an introduction to the 
68008, the book presents an overview of 
Qdos anda program which enables you to 
access Qdos from SuperBasic. A full listing 
is given, together with some example 
programs in assembler. The remainder of 
the book covers all aspects of Qdos in a 
reference format. 

The Sinclair QDOS Companion is 
published by Sunshine and costs £6.95. 
The QL Advanced User Guide, published 
by Adder, is £12.95. 

One of the many books on using the 
Psion packages, but one of the few to 
include them all, Sinclair OL in Business, 
by Arnold Handley, has a light, refreshing 
approach to putting the applications to 
work. Chapter headings include Quill, the 
unofficial ways — tricks not in the manual; 
Abacus as a word processor?; Writing a 
report to the boss; and Abacus with no 
numbers at all — the fastest duty list. 
Despite the humourous approach, the 
book contains much useful information 
and good advice, although it obviously 
does not go into the same depth as similar 
publications which cover only one 
program. It costs £9.95 and is published by 
Newnes Microcomputer Books. 

QL Archive is dealt with ina much more 
detailed fashion in the Century QL Archive 
by Ian Murray, costing £14.95. It may 
sound expensive but for your money there 
are 350 pages of information and advice. 
The book is suitable for beginners and the 


more experienced who want to use it as a 
reference guide. 

The step-by-step approach takes the 
reader through each stage with plenty of 
practical examples and some business 
applications. Among other things, subjects 
covered include information storage and 
retrieval, multiple files, finding and sorting 
records, designing screens, and linking 
files to be used in more than one 
application. Three other books in the 
series deal in a similar manner with Quill, 
Easel and Abacus. 

Still on the subject of Psion software, 





Word Processing With QL Quill, by David 
Dempster, attempts to suit everybody from 
the novice to experienced word processor 
operators. While that approach is not an 
unqualified success, the book is 
sufficiently well-organised enough to 
include something of value to most Quill 
users. The appendix contains a reference 
section which gives a brief description and 
cross-reference to additional information 
in the text. The book is one of the Longman 
series Working With The Sinclair QL, 
which also includes two books on Abacus 
and another on Archive. 








The third and 


concluding 
(definitely) part of our 





dipsomaniac’s diary — 





Samantha Mead. 


9.30 a.m. There is clearly one 
golden rule to be followed 
when learning your way 
round the QL — never allow 
too much time to elapse 
between sessions. If nothing 
else, all this hi-tech is 
infinitely forgettable from 
one month to the next. Settle 
to final session with QL, only 
to discover that expert has 
unearthed a quirk he finds so 
fascinating that I am not 


allowed near the micro. 
Further, when he discovers 
the solution, he is so pleased 
about it he will tell me only 
that “It’s buried deep in the 
manual” and assumes I will 
not be able to work it out. 

I have to say that there are 
disadvantages to having one 
of these otherwise useful 
beasts in the house. The 
trouble with experts and QLs 
is they suit each other 
admirably and can combine 
to give beginners inferiority 
complexes as well as 
hangovers. Treat mixture 
with extreme caution. 

As for the quirk, it is just a 
small matter of getting the QL 
to talk to a printer. It appears 
that just because you have 
managed finally to acquire a 
printer lead, you should not 
assume automatically that 


you will be able to use a 
printer. Even deciding into 
which socket to plug the 
allegedly standard British 
Telecom jack is not 
straightforward and is not 
helped by the fact that it does 
not appear to be a standard 
British Telecom jack, but 
that’s another story. Suffice it 
to say you are better off with 
the official Sinclair printer 
lead than making one 
yourself, assuming you 
thought of being so clever 
anyway, which you might do 
since you get more help from 
the manual on that than on 
merely printing-out your 
listings. Odd people, these 
manual writers. Since I hope 
to be using a serial printer, I 
have plugged into the SER1 
socket and all I have to do is to 
tell the printer to print. 
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PART TWO 


Excuse me for the next few 
hours. 

10.45a.m. [have worked my 
way through Beginners’ 
Guide and have experienced 
certain frissons of excitement 
when discovering in Chapter 
12 the sub-heading Simple 
Printing. Expert points out 
smugly, however, the main 
chapter heading is Screen 
Output and a printer is not 
involved. On to Chapter 13, 
which although it says it is 
about Arrays, clearly does not 
want to help me array 
anything on paper. End of 
Beginners’ Guide leaves me as 
ignorant of printer/micro 
relationships as I was initially. 
So although I can get together 
simple listings, I can’t print 
them. 

Since Editor wants copy this 
week, not next year, I grit 


teeth so as not to sink them 
into expert and ask politely 
for help. Smiling sweetly, 
expert refuses to tell me how 
to print from Basic and 
suggests I try printing a Quill 
document instead, which 
might at least make the 
printer work. 

Try not to sound too 
insincere as I thank him for 
pointing out the obvious and 
turn to Quill section, page 19, 
which tells me that if I haven't 
hooked-up the printer 
correctly nothing much will 
happen. Oh, they’re all 
coming out with the helpful 
advice this morning. When I 
have followed all the other 
dynamic instructions given 
on page 19, the Microdrives 
whirt, click and stop, the 
printer hiccups, emits two 
random characters which 
bear no relation to anything, 
and stops. Expert nods wisely 
and says he knew it would do 
that and would I like him to 
try to find a solution? 

Leave him in possession of 
QL and go to look for 
offensive weapon. Return to 
find printer has printed what 
appears to be three letters of 
the Greek alphabet and expert 
is, bafflingly, looking even 
more smug. It appears that 
although I am attempting to 
use an RS232 printer, almost 
any of which, according to the 
manual, is satisfactory for the 
Psion packages, I have not yet 
attached the correct printer 
program to Quill, which is 
something I am told to do 
only in the Information 
section to be found at the back 
of my manual. Full (?) 
instructions given here and it 
must all be done before you 
load Quill. Push expert off 
chair to relieve feelings. 


lllustration by Steve Dew 
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Screen information tells me 
that if I had an Epson FX80, 
Quill would probably have 
printed-out first time. Far be it 
from a mere beginner to 
suggest that a manual 
designed to help me might 
have mentioned that in 
Chapter 1, page 1, of the 
Introduction. Anyway, I have 
a Brother EP44, a printer 
which is not one of the eight 
mentioned in the print-driver 
software which needs to be 
patched into Quill. So I still 
have a problem. Take break 
for coffee and tranquillisers. 

12.30 p.m. The information 
section tells me if my printer 
is not included in the list of 
eight, I have two options. Do 
nothing, in the hope that the 
routine given will please my 
printer anyway, because 
“almost any printer” should 
cope. Of course, mine is one 
of the allegedly rare models 
_ which does not, so I try option 
two and install a driving 
program which is compatible 
with the specification of my 
printer. If you have mislaid 
the handbook for your 
non-QL-approved printer, 
you might be in big trouble 
here. If you can determine 
your printer's baud rate and 
general operating parameters, 
the QL manual will do the rest 
- finally. 

Anyway, with a good deal of 
help from a now unbearably 
self-satisfied expert, I finally 
achieve a printout on a real 
sheet of paper, probably the 
hardest piece of copy ever. It 
is a shame it does not say 
anything more earth-shaking 
than “Hello World.” 

It has to be said, though, 
that I am way out of my depth 
on this printer lark and I 
really can’t find anything on 
the subject in the manual 
which could be interpreted 
easily by a novice. Left to my 
own devices, I would still be 
sitting up all night with a 
mutinous printer hiccuping 
nonsense at me and I have just 
realised that I still cannot 
print from Basic. 

3.00 p.m. Go on treasure 
hunt through manual to solve 
mystery of printing from 
Basic, collecting nuggest from 
Beginners’ Guide (p67), 
Concepts (p13, p16, p17) and 


Keywords (p4, p8 and p40), 
not necessarily in that order. 
As with all good games, clues 
are heavily disguised and Iam 
not so thrilled with the prize. 
Never mind, at least I get paid. 
Where you find consolation, 
gentle reader, is your 
problem. 

Expert is beside himself 
with glee about the solution, 
which I give you without the 
slightest pretence of 
understanding it. Those 
sufficiently masochistic to 
wish to learn for themselves, 
close your eyes now; the rest, 
read on. 

To print from Basic, simply 
— hollow laughter — attach a 
DEVICE to a CHANNEL. SER1, 
which is the socket 
masquerading as BT 
compatible, is, it appears, a 
DEVICE. A CHANNEL, which is 
a line of communication 
between the micro and the 
printer, is opened by the 
command OPEN #3, SER1. 

My printer, the Brother 
EP44, needed the command 
BAUD 1200 as well and a C 
tacked on the end of SER1. 
The command PRINT is 
followed by #3 each time it is 
used, assuming that hard 
copy is required, and it had 
better be after all I have been 
through! LIST #3 sends a 
listing to the printer and 
money sends expert to the 
off-licence, which serves not 
only to top up my alcohol 
level butalso to get him out of 
the way while I recover my 
temper. 

4.30 p.m. Decide to samplea 
little sophistication to 
smoothe my nerves, in the 
form of SuperBasic, moving as 
I do so, the manual tells me, 
into a remarkably advanced 
computing environment. 
How I can cope with that 
when I could not even crack 
the printer fiasco remains to 
be seen. There is no dobut 
this manual has a trick of 
making the would-be user 
feel significant. The manual 
and I proceed to discuss the 
main features of SuperBasic. 

The first example of this 
remarkably-advanced 
computing environment 
which we discuss is: 

LET pet1$ = “CAT” 
LET pet2$ = “DOG” 


| World April 


IF pet1$<pet2$ THEN PRINT 
“Meow” 

Decide to take a break 
before all this sophistication 
overwhelms me. 

6.00 p.m. Back at the 
keyboard for the night shift, I 
am enthralled by the 
simplicity of it all. Assured by 
the manual that SuperBasic 
always tries to be 
“intelligently helpful” and 
will not reject my efforts 
out-of-hand unless they are 
completely hopeless, I 
type-in an attractive program 
all about flying kites and 
clearing garden sheds. I 
check it very carefully and 
even remember a few things I 
learned last month; then I sit 
back and wait for something 
to happen. It does. Helpful, 
intelligent SuperBasic reports 
At line 100 ERROR IN 
EXPRESSION. I check again. I 
am hurt. I have copied it 
exactly as printed. I look up 
the message in the Concepts 
section, to be told that “an 
error was detected while 
evaluating an expression.” 
Not so. An error was detected 
while following the manual — 
by me. Scream for expert, who 
corrects manual with red pen. 
I insert semi-colon after the 
INPUT statement in line 100 
and the program runs. Super, 
if a little basic. 

Intrigued by my brief 
encounter with the Concepts 


section, I browse a little 
further. I discover that not 
only are the names of all the 
socket pins merely concepts, 
so, too, are the Microdrives. 

Could this open a whole 
new controversy on the 
subject? Delighted by those 
revelations, I research further 
to find that instructions on 
starting-up the computer are 
to be found here, as are details 
on almost everything else the 
manual hitherto has ignored. 
Perhaps that is why the 
instructions on putting 
together the manual 


recommends Concept section 


for a middle slot. 

Clearly, innovation applies 
to the English language as 
well as the firmware of the QL 
— another first for Sinclair 
Research. 

Also included in the section 
is the concept — yes, really — 
of SOUND. Now this I have to 
try. On a first reading of the 
relevant sections of the 
manual I suspect that it si 
more a case of making it 
sound good than it really 
sounding good, and guess 
what? I am correct. Much 
waffle about fuzziness — 
deliberate — and randomness 
— intentional — and not too 
much about how to achieve a 
recognisably musical note — 
missing altogether. Two 
options here. Either you do it 
the difficult way, by trial and 


error, or you do as I did and 
consult back issues of QL User 
to find which of the numbers 
from 1 to 255 correlate with 
which notes on a musical 
scale. All in all, SOUND can be 
said to have gone with a 
whimper rather than a bang 
but the QL never pretended to 
be a music centre. 

11.20 p.m. Decide to give | 
Archive, Abacus and Easel a 
miss, on the grounds that the 
first two are not suitable for 
novices and the graphics 
package is fully interactive, 
according to the manual, and 
sounds far too strenuous for 
this time of night. This 
decision helps me to realise 
that I may well be nurturing 
the first symptoms of 
keyboard junkism, and make 
second stand of the day, but 
turning off QL. I feel that 
further excursions should be 
undertaken away from public 
gaze; this exercise shows 
every sign of becoming a 
long-term obsession. 

Despite the disasters and 
frustrations, I am reasonably 
confident that I now have a 
rudimentary knowledge of 
the workings of the QL. The 
only trouble is that I also now 
have a drink problem and am 
suffering a crisis in my 
relationship with expert — 
but everything worth 
knowing has its price, they 
say. 
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Micro Anvuika 


COMPUTERS & PERIPHERALS 
224 Tottenham Court Road, London W1P 9AF 
Tel: 01-636 2847, 01-580 6382 Telex: 946240 CWEASY G 
EASYLINK 19010170 


LONDON WI 


QL SOFTWARE 


LEISURE BUSINESS 
2S le {2 RNAI IPE RITES £9.00 TE CE: “Sse clave c'e'e'e.0-clvia/cleie-wisre £24.00 
oe OIG GOL IT ae a0 Special Introductory gar ee “rst es 
BY $0 Laid). wnat conus £12.00 Offer , Brtice veesesereeees £12.00 
MATCH POLE aiike oars sieie £13.00 CITIZEN 120D Sp tte teen nena enes ; 
ee Davis Snooker “ee Pilaten gO ee Sslwieris-eieres eee 
OL FARWN a-o-020 oo ake nielete eee ; features include: ition Maker .......-. oe 
QL Adventure Classics... £9.00 Reseee LULA 2, OCC Le ae 
LOZLONARY: 0 vcecccce ‘ NENCHENEUR. -.o:5:<:0:ecseicieiers ‘ 
a goatee ew es pio. ceMon: pO a Te Ps cP 
Cosmos. (Tatent] .......813.00 4K bubber Nailing List (Txana) ..,£14.00 
Astrologer (Digital) ..£22.00 tractor feed Stock ContnoL(Trans) ...£14.00 
Oka ohare ..£13,00.  S*4etlon feed Appointment Dainy ...... £24.00 
Unt e sees eeeeeees ‘ cantnidge interface egle 
QL Paint (Talent) ..... £23.00 2 years warranty AROCHLUON [Sete orate slo cisiclele’s " 
Super Backgammon ...... £13.00 : f j 
£225.00 including Miracle System Interface £ VAT 
SCRABBLE JUST IN — £14.00 
LANGUAGES 
Digital Basic Compiler. £53.00 QL Computer with Version 2.3 Software ...... £195.00 
" Forth+Reversi . £26.00 Microvitec Cub 1451/DQT3 with Stand ........ £270.00 
® Super Monitor .£18.00 Philips BM7502 Gaeen Screen with cable ...... £89.00 
Metacomes net Pete + Eth 00 Cumana single 3.5 720K dish drive with ..... £189.00 
halon Paasche St a ali £79.00 Cumana Dual dish dnived ..ccccccecaccccceces £279.00 
a Pip itens ee £51.00 Above disk drive include Cumana disk interface 
vd BCPC a oat ete £51.00 EPSON EX: BO DRAREOAN SI Saree. tucteieiolediicloteislotre £249.00 
. Assembler ...£33.00 Taxanm Kaga.\KP810 ..0.<<.00:009.0 call for Latest price 
GST Macro Assembler ...£58.00 SUNCLAARADAANTOR .. Sistacclols sitodiote .cleleeleince Jess £239.00 
QL Assembler .......... £28.00 = Minacle System Modaptonr with Qcode term S/W .£38.00 
MINGELE SUZK (EXDANAEAGM: cic o o:0:0:0:0:0 eicie'e Slowicieins £119.00 


ALL prices include VAT. Postage on orders above £15.00 is free. Add 50p to order 
under £15.00. Please add £6.00 for delivery of printers,monitors and diskdnrives. 


Overseas orders ane welcomed. Postage valid for UK only 
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MICRO ANVIKA at (Euro Cale Stone) 224 Tottenham Court Road. London. WIP 9AF. 


Tel. (01) 636 2547 Telex :946240 CWEASY G Attn: 19010170 
come and visit us at our new shop at 220 Tottenham Count Road London W1..........006. 


FAST DELIVERY OF QL 
DISC DRIVES 


Cumana 3.5” 1 Mbyte floppy disc drives, internal power supply, 
complete with disc interface, utilities, manual, and optional RAM on 
the interface card. 








INTERFACE SINGLE DUAL 
6. | i ee.” ae es £211 £288 
Delta plus parallel printer interface ................... £251 £328 
Delta plus 128K RAM + printer interface .......... £321 £398 
PCM plus: 256K RAM, 3: sescccdecedsbecsebicsseeeessdoedeee £361 £438 






Cumana plus 256K Expandaram ............ececee--- 
Cumana plus 512K Expandaram ...............::000+ 


TWO MICRODRIVE TOOLKITS 


Read and write microdive sectors from basic and assembly language 
programs. 

QL MDV EXTENSIONS TOOLKIT ........... cece eects eeseeees £9.99 
Adds six functions to Basic allowing read/write/verify of microdrive 
sectors, reading of medium names and “fingerprint” from sector 
headers, and includes a repeat format routine. An eight page manual 
explains the functions, details the microdrive format and uses 
example programs supplied on microdrive. 

QL MDV ASSEMBLY LANGUAGE TOOLKIT (Source Code) £29.99 
Over 1000 lines of fully commented assembly language source code 
to a set of routines equivalent to the above, but with some additions. 
An eight page manual explains microdrive format and how to 
implement a copy protection scheme as well as QDOS-like routine 
definitions. 

BOTH THE ABOVE TOOLKITS ON ONE MICRODRIVE ..... £34.99 


COMPARE Also sell a wide range of QL peripherals (monitors/ 
printers/modems/EPROM programmers) and software. Please 
send SAE for full price list. 


PRICES INCLUDE VAT AND DELIVERY 


OVERSEAS CUSTOMERS — WRITE FOR EXPORT TERMS 
57 REPTON DRIVE, HASLINGTON, 


XNUiPW AZ CREWE CW1 1SA 


Telephone: CREWE (0270) 582301 
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QLProject 
piannct 
A brief resumé of some of the business = 
packages available for the QL, plus 


some readers’ suggested applications. ae 


When the QL was launched, there were many who 
hoped it would become the affordable computer for 
small business. Business software accordingly was 
developed to handle everything from payroll to man- 
agement, accounting to project planning. . . 

QL Quill. It is a testament to its power and popular- 
ity that no other word processor has been marketed 
successfully and sold in large numbers for the QL. It is 
an excellent word processor, from the WYSIWYG — 
What You See Is What You Get — screen layout, to the 
word-count and export facilities. Early versions of the 
program were frustratingly slow and we would defi- 
nitely recommend an upgrade to anyone still using 
them; the speed increases are fantastic and it is a relief 
to see many of the bugs eradicated. Despite the fact 
that there is no better word processor for the QL, it is 
a pity that Psion could never release a spelling checker 
—although one is sold independently by Eidersoft — 
or a reasonable Mail-merge facility for it. 

QI Abacus. Again there have been no other spread- 
sheets to equal the Psion original for the QL. It has 
been upgraded considerably since the original 
release, although speed was never one of the prob- 
lems with Abacus. The other major headache — hook- 
ing-up printers — has also been solved with the new 
releases, 

QL Archive. As the QL has attracted a variety of soft- 
ware developers, so Archive, the definitive Psion 
Database for the QL, has proved its position with a 
selection of enhancements developed specifically for 
it. Simplicity was never a strong point with Archive but 
that was sacrificed for the versatility which has proved 
so essential. 

QL Integrated Accounts. The Sagesoft Sinclair- 
sponsored accounts package is probably the most 
powerful package in relation to the versatile features it 
offers. While providing all the facilities of the IBM and 


Sinclair/QL World April 1986 






iy ll" 


= \ 
SEY. > - \ 
SRN ee \ 
ots <8 é “ 
as 23 z vy Wwe i eee 
aN Hae: BREE v\ SQ Sty a\\, 
SN Sas YS Ay oN SF 
NN eS \ Ss x We Se EAT AG 
=<t8 : mn Wenn Wass | eet te 
oS : Veer” Wer bse 
- Sane | ' 
\ . 





Apricot versions, the multi-tasking and window 
facilities of the QL are used to enhance the package. 
The problems of complex manuals for the system have 
been alleviated by providing a tutorial program which 
takes you through the relevant accountancy discip- 
lines, 

QL Entrepreneur. Another Sinclair-sponsored 
package, from Triptych Publishing, designed to build 
the basic skills necessary to start your own business. 
Having gone straight from business school, the mem- 
bers of Triptych are well-suited to develop your know- 
ledge, using comprehensive manuals and special 
tutorial programs. They are enhanced further by pro- 
grams for flow forecasts, year-end balance sheets and 
profit/loss accounts — everything necessary for the 


first steps into business. 
Entrepreneur is one of a series of business planning 


programs from Triptych, which also includes QL Deci- 
sion Maker — which helps examine the risks, costs and 
benefits of a given business proposal in a diagramatic 
way — and QL Project Planner, a modern project plan- 
ning system which helps estimate the time needed for 
a variety of jobs. 

QL Cash Trader. One of the first third-party busi- 
ness applications to be marketed by Sinclair Research 
and aimed squarely at the small business. It is for 
people who want a quick and accurate method of fol- 
lowing cash-based transactions rather than credit 
transactions. It has rather an eccentric history, being 
published by Sinclair Research and licensed from 
Quest International, which in its turn acquired it from 
Accounting Software of Torquay, the authors. There is 
an excellent training tutorial which runs through 14 
working examples before it allows you to use it fully. 

QL Payroll. This program from TR Computer 
Systems claims to be a fully-operational payroll pack- 
age which can run either as a stand-alone or in con- 
junction with a tailored software package. It copes with 
weekly- or monthly-paid employees and can include 
for each employee six deductions over and above tax, 
National Insurance and pension deductions, one of 
which has facilities for loan repayment and one a vari- 
able deduction for each pay period. The original was 
written in SuperBasic to allow easy modification but 
the company then re-wrote the program in BCPL to 
guard against piracy. 
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Typing Tutor. No list of business software would 
be complete without mention of the ubiquitous Typ- 
ing Tutor. There are several for the QL but one of the 
first was from Computer One, which is in a shrink- 
wrapped package with a 14-page manual. The manual 
is small, as the program provides most of the 
documentation internally. There are 11 typing lessons, 
each designed to provide greater facility with the 
keyboard. The only real problem with Typing Tutor is 
the QL keyboard, which does not necessarily lend 
itself to touch-typing as keys tend to auto-repeat far too 
frequently. 

Figure one shows most of the major business soft- 
ware types for the QL but it is worth bearing a few basic 
principles in mind when shopping for each applica- 
tions. 

The only way to choose between similar-sounding 
packages is by having a very clear idea about what it is 
you want the QL to do. That method of software selec- 
tion is known by jargon-lovers as the systems 
approach. All it means is that you build your computer 
hardware and software collection with the idea of 
developing a system to accomplish specific tasks. 


Store And Retrieve 

Four business programs are supplied with each QL but 
they need back-up cartridges, as well as cartridges for 
storing their data. More software cartridges are reach- 
ing the market and there are listings in computer 
magazines, all available to be typed-in and saved on 
Microdrive cartridges. A QL user almost needs a com- 
puter program to keep track of the growing number of 
cartridges, saved, or course, on a Microdrive cartridge, 
and backed-up on another Microdrive cartridge. 

The QL is at the top end of the microcomputer 
range, consequently it is used by serious computer 
users, but you cannot be a serious QL user without 
feeling a little like a history student restricted to using 
AO size notebooks. 

The best possible, indeed the most urgent applica- 
tion for any QL user is the one I would most like to try 
— to store and retrieve the programs I have gathered 
on a disc system. You can be a QL user without a disc 
system but you cannot be a serious QL user without 
one. 

A. Tyson. 
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Theatre Lights 

For designing theatre lighting plans I am developing 
a program aimed at making it possible to obtain print- 
outs of overall layouts rapidly and complete lists of 
levels for the individual cues. 

Although most modern lighting boards have a form 
of in-built file storage, back-up requirements, frequent 
need for reference and the fact that very few boards 
have interfacing potential, necessitate making avail- 
able frequently updated hard copies. 

The inevitable experimentation in the early stages of 
design can easily involve many drastic changes, the 
effects of which frequently require alterations 
throughout subsequent cues, resulting in large 
amounts of time-consuming and tedious paperwork 
when using conventional methods. 

The problem is particularly acute in the event of 
equipment breakdown which, while a relatively rare 
occurrence, can be catastrophic without means for 
recording an acceptable alternative as rapidly as pos- 
sible, together with a list of changes throughout fol- 
lowing levels to allow for reduced efficiency. 

Mike Vaughan, 
Copenhagen, 


Denmark. 


Analogue-to-Digital 

In the department where I work, our secretary has an 
IBM word processor. She has tried my QL and she is 
very impressed. Everything her machine can perform 
the QL performs easier and faster. There is only in one 
respect the IBM is superior — it has discs. One is for 
loading the program and the other for storing docu- 
ments. 

I use my QL with a Brother EP 44 printer and a Fin- 
lux SM 9510 RGB monitor. The QL was delivered to me 
when I lived in Bath in June, 1984. 

When available, I will buy an A/D converter to use 
the QL as a data collector to measure temperatures to 
optimise the heating system in our house. If the A/D 
converter is connected to the bus, I would like to make 
fast two channel measurements to calculate the cross 
spectrum used for noise intensity measurements. 

Urban Anderson, 
Johanneshov, 
Sweden. 
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Name of Software Supplier Type Price Telephone 
QL Bank Account Cenprime Software Accounting 419.95 0203 686162 
Typing Tutor Computer One Typing Tutor $14.95 0223 862 616 

Transact Book Keeping _—_ Dialog Software Accounting £34.95 Epping 77871 
Archiver Fidersoft Database Applications £18.95 0708 852647 
Qspell Fidersoft Spelling Checker £19.95 0708 852647 
Sales Ledger Eidersoft Accounting £49.95 0708 852647 
Purchase Ledger Eidersoft Accounting £49.95 0708 852647 
Nominal Ledger Eidersoft Accounting £49.95 0708 852647 
Stock Control Eidersoft Accounting £49.95 0708 852647 
Equate Flite Software Equation Processor £39.95 010 353 7421255 
Cash Trader Micro Anvika Accounting £54.00 (01-636 2547 
QLScreen Dump Miracle Systems Ltd screen Dump £4.99 0272 603871 
Stockmarket Manager Portfolio Software Investment Analysis £34.95 
Insurance Manager Portfolio Software Database Analysis $24.95 
Tasprint QL Tasman Software Typeface £19.95 0532 438301 
Tascopier QL Tasman Software screen Dump £12.90 0532 438301 
Mailing List Transform Ltd Mailing List £14.95 01-658 6350 
Stock Control Transform Ltd Accounting $14.95 (01-658 6350 
QLAppointment Diary Transform Ltd £24.95 01-658 6350 
QSpell Transform Ltd Spelling Checker £19.95 01-658 6350 
Payroll Transform Ltd Accounting 4.63.25 01-658 6350 
Integrated Accounts Transform Ltd Accounting £89.95 01-658 6350 
Archive Adjustment Transform Ltd 01-658 6350 
QL Key Definer Transform Ltd Quill Utility £9.95 01-658 6350 
QL Calc Transform Ltd Calculator Utility £9.95 01-658 6350 
Multi Tasking Transform Ltd General Utility $14.95 01-658 6350 
QL Project Planner Triptych Publishing Decision Analysis £39.95 
QLIntegratedAccounts —_ Triptych Publishing Accounting &39.95 
QL Entrepreneur Triptych Publishing Decision Analysis £39.95 
QL Decision Maker Triptych Publishing Decision Analysis £39.95 
RefQL7 WD Software 4&7] 0534 81392 
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To fit the complete rules of Backgam- 
mon on a cassette box insert is an 
achievement in itself, but the com- 
puter game described on the same 
insert should be even better. OL Super 
Backgammon. is Digital Precision’s 
answer to those who find chess too 
complex and reversi too simple. 
Complete with Quill file and intro- 
ductory instructions, the game is 
played by two opponents, be it the QL 


against itself, a player against the QL or 
two players against each other. To ex-. 
plain the rules would take too long, but - 
for those of you unfamiliar with the’ 
game you must move your 15 counters 
around the board into your home sec- . 
tion and remove them before your: 
opponent does the same. In order to’ 
win you must block the opponents. 
moves, take his counters and throw. 


high scoring dice. 

As is so often the case with computer 
generated board games, movement of 
pieces and the throwing of dice is 
limited to the keyboard, and with 
backgammon this is usually part of the 
fun (like the handling of cards in a 
game). But you are given the oppor- 


tunity to have a game when youre’ 


alone with the QL. 


As usual the two dice are thrown by . 


the computer, but for those of you who 
want a false realism and know that a 
computer cannot generate truly ran- 
dom numbers, you can throw your 
own dice and input the values. This is 
especially useful if you want to beat the 
computer at the top level, but 
obviously relies on your morals. 
Unfortunately, playing the game 
itself is complicated. The board is set 


up for you, but having chosen your. 


opponent, his name, the doubling 
cube, play level, move information and 
whether you throw the dice, you could 
be well into a game on a real board. 
To make matters more confusing, 


the instructions state: “If you play the 


computer, you will be player 2 — 


Green.” Having chosen this option the . 
computer asks for the “Name of player - 
1:". You might type in “Computer”, or ' 
give the QL the name of a famous” 


player — if you know one. However, 
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the computer then announces “You 
will be player 2”, and proceeds to call 
you “Computer” — or the name you 
selected — throughout the game. 

If you select to see move inform- 
ation, the screen will show the last 
move made. This is useful because the 
QL plays at such speed you rarely see it 
move, let alone see the dice it threw. 

When playing, the values of your 
dice are shown and you are asked from 
which position you will move your 
counter. Having entered the number 
corresponsing to the position, you 
must type in the destination of that 
piece. Moves must be taken individu- 
ally. If you throw a 2 & 3, and wish to 
move a single counter 5 places, each 
move has to be separate, so play is 
rather slow. 

If you imagine a chess board, the 
pieces at the bottom of the screen are 
usually yours, to put the board in 
perspective. Not so with Super 
Backgammon. Digital Precision had 
decided that you should play as though 
sitting on the far side of the board, 
which is most confusing, particularly 
for a player of the real thing. Also, if 
you make a wrong move, there is no 
Opportunity to correct it. 

There seems to be some discre- 
pancy about gambling. When the mes- 
sage Double the stake?’ comes up, you 
are never quite sure if the question is 
directed at you or asked on your 
behalf. If the latter is true, and you 
don't accept, the other player will not 
be asked if he wants to double. But if 
you were asked, and you don't accept, 
bang goes your game. The only really 
useful feature in the game is a help 
option for beginners, which will 
suggest the best moves to make. 

In terms of programming achieve- 
ment, QL Super Backgammon is bril- 
liant, and the speed at which it per- 
forms confirms this. However, for the 
player the game is both unfriendly and 
confusing, and the increased ‘speed 
that Digital Precision have strived to 
achieve tends to make the moves con- 
fusing. I really looked forward to play- 
ing the game when I saw its features 
and potential. In reality though, while 


it remains the best — and only — 
backgammon for the QL, it is a little 
disappointing, though at 412.95 it’s not 
a bad buy. 


First it was films, now it’s board games 
— Scrabble is the latest release for the 
QL to reflect the increasing use of 
already successful ideas for computer 
games. These, the software manu- 
facturers hope, will be as attractive on 
a monitor as they are on the big-screen 
or kitchen table. 

One such company is Leisure 
Genius, a trade mark of Winchester 
Holdings Ltd. who has secured a deal 
with J. W. Spear & Sons PLC to repro- 
duce their most famous board game — 
Scrabble. 

Computer Scrabble for the QL is a 
beautifully presented package which is 
well thought out and consequently 
easy to use. For those of you unfamiliar 
with the game, each player must con- 
struct words from his rack of seven 
given letters, incorporating at least one 
letter already on the board. The word 
is placed horizontally or vertically on 
the board and scores points according 
to the value of letters used and the 
positions they cover. The program 
caters for up to four racks, each of 
which can be played by a person or the 
QL. 

After a cute introductory picture 
showing a likely golfer next to an 
unlikely 19th hole, the Scrabble board 
is drawn anda series of questions must 
be answered before play begins. These 
cover resuming a saved game, playing 
against the clock, players names and 
skill levels. While the package states 
four skill levels for the QL, there are in 
fact eight. Alternatively, pressing 
Return instead of a number will select 
a human to play. 

The final options allow you to view 
words tried by the QL when playing, to 
see the racks of all players, to turn off 
the sound and to select the time it takes 
for letters to be placed on the board. 
Simply pressing the Return key gives 
logical default values for all question, 
so you can quickly get on with the 
game. 


OFTWARE FILE| 


I found the game surprisingly addic- 
tive — the board game sends me to 
sleep. Players take it turn to create 
words from their rack of letters dis- 
played at the bottom of the screen. This 
is done by typing in the full word, plac- 
ing it on the board with the cursor keys 
in the correct position and pressing ‘D’ 
for down or ‘A’ for across. The QL will 
calculate and display the value of the 
move which you can then accept or 
reject. 

If the computer doubts the validity 
of one of your words it will ask ‘Are you 
sure?’, to which you reply 'Y’ if the 
word exists. If it does not exist, and you 
press ‘N’ you forfeit your turn. Alterna- 
tively you can ask for a hint, change or 
juggle your letters and, if necessary, 
miss your turn. 

There are a several advantages with 
Scrabble on the computer, the most 
obvious being the automatic diction- 
ary check. Again the package is incor- 
rect, the dictionary in fact contains 
over 20,000 words, not 12,000 as 
stated. All the scoring and dealing of 
letters is taken care of, even at the end 
of the game, and players’ scores are 
always visible, eliminating the need for 
paper, pens and calculators. 

There is one problem, which only 
comes to light when you play the 
game. For serious players Scrabble is 
like a game of Bridge or Poker — it 
would be fatal to show other players 
your hand. Unfortunately, with your 
letters stored by the computer the only 
way you can view them is on the screen 
to which other players eyes are glued. 
The manual says that this will not affect 
play, but an option is provided which 
requests each player to press a key 
before his rack is shown. This allows 
for one person using the computer at a 
time, but is not very practical. 

Playing two characters myself 
against the computer, the results were 
most revealing. The scores were as fol- 
lows: 


QL at level 8 — 179 points 
Player 1 (me) — 137 points 
Player 2 (me) — 131 points 
QL at level 1 — 105 points 
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Despite its minor limitations Scrabble 
on the computer was enormous fun 
and I would recommend it to anyone 
who enjoys the board game. 


Knight Flight? No, its not a cross 
between Knight Lore and Flight 
Simulator, but a fairly original arcade 
game, particularly for the QL. Sitting 
astride your faithful ostrich — or is it a 
pelican? — clad in shining yellow 
armour and brandishing your lance 
menacingly, you must do battle with 
the other Knights of the Kingdom. 

Battle involves flying around the 
screen, crashing into other knights and 
bouncing off the various platforms. To 
go up in the air flap your wings using 
the space bar or fire button. To come 
down stop flapping. The cursor keys or 
joystick are used to move left and right, 
but as usual the fire button on the joy- 
stick is a finger killer after a few 
minutes furious flapping. 

In order to kill a Knight you simply 
have to spear him with your lance, or 
knock him off his red flamingo. You 
must therefore be above him, even by 
the slightest amount, when you crash 
into one another. If all goes well he 
will disappear leaving his trusty bird to 
flap into the distance, but should he be 
above you, say goodbye to another life. 

Stages play an important part in the 
game — having cleared one wave of 
Knights the scenario changes slightly 
and you are faced with another selec- 
tion from the Round Table. the game is 
surprisingly addictive, perhaps 
because of it’s originality. It also incor- 
porates some lovely features — as you 
land on the ground or platform the 
birds undercarriage comes down like 
a swan landing on water. When you 
eventually slide to a halt the bird stands 
upright until you take off again. In later 
stages the odd fire breathing dragon 
appears on the set to harrass you, but 
in the few stages I managed to pass no 
seductive maidens appeared! 

Knight Flight is available from Real- 
time Games Software Ltd., Prospect 
House, 32 Sovereign Street, Leeds LS1 
4BT, and costs £14.95. 
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MDIGITAL PRECISION 10 


222 THE AVENUE, 
LONDON E4 9SE 


Please note our 
new address 


fuk: - duck 


Please RUSH ME.........ceceeeeneeeeeneeeeeeee ees ans gutbleaeneus@enencoenerondeseveenigencs: 
All postage within the U.K. is free, but please add £1 (£2.50 for SUPERCHARGE) per 


program for orders from other countries, to cover airmail and packaging. Cheques from 
abroad should be drawn on a U.K. bank or be Eurocheques — if you are unable to do 
this, just add £5 to cover cheque clearing charges. 


SIGNATURE 





l enclose £ 





or debit my ACCESS/VISA Acc. No. 
expiry date 
“The quickest response | have experienced from the UK", T. Hansen, Norway. 
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SUPERCHARGE 


Supercharge is a program that translates slow, interpreted SuperBASIC into fast, flexible 68008 machine 
code — totally automatically. You need no specialised knowledge at all. 


Supercharge supports the entire syntax of SuperBASIC. Compiled programs run incredibly fast; some run 
over 100 times faster than in the original SuperBASIC. Microdrive loading times are accelerated by a factor 
of up to 30. Multitasking is fully supported, and easy to use. 








* ALL Supercharged programs multi-task — you can run any 
number of them on one QL, simultaneously (RAM permit- 
ting) 


* Supercharge supports full floating point arithmetic, to an 
accuracy of NINE digits (SuperBASIC only displays seven 
decimal places). Arithmetic is breathtakingly fast — integer 
handling is often 100 times faster than in interpreted 
BASIC. 


* Supercharge allows the entire syntax of QL SuperBASIC: 
file-handling, multi-dimensional arrays, local variables, pro- 
cedures and functions (with parameters), turtle graphics, 
windows, both display modes, all devices (including disk 
drives, modems etc.), sound, graphics, colour, strings, 
etc., etc. 


* Supercharged programs are reliable on all versions of the 
QL. Most bugs and restrictions imposed by the SuperBASIC 
interpreter are corrected or lifted by the compiler. Say 
goodbye to the integer FOR bug, string and integer SELECT 
bugs, the CALL bug, the ‘t@o many parameters’ bug, the 
GOSUB in a loop bug, the RESPR bug, etc., etc. 


* Supercharge includes a sophisticated optimiser, which the 
user can direct to produce either especially compact or fast 
68008 machine-code, on a line by line basis. 


* Supercharge is compatible with virtually all QL add-ons, in- 
cluding disk systems, expansion RAM, and even add-on 
commands which do not form a standard part of Super- 
BASIC! ‘Toolkit’ utilities work beautifully, so long as they 
don't try to modify interpreter data-structures (which ob- 
viously aren’t there). Very few commands do this, and 
Supercharge generates clear warnings where incom- 
patibilities might exist. 


* Supercharge issues explicit, plain-English reports and warn- 
ings, showing the exact position of mistakes. Many ‘trivial’ 
errors are automatically corrected! 


* Supercharge is fast, device-independent, concise and easy 
to use — it even compiled itself! 


*x Supercharged programs may be interactively tested ‘in 
slow motion’ using the compatible SuperBASIC interpreter. 


* Supercharged programs are protected against unauthorised 
modification, as they cannot be LISTed. Compiled code 
loads incredibly fast — for instance, a 75K SuperBASIC 
program loads 25 times faster once compiled. 


* The 105 page Supercharge manual is comprehensive and 
readable, with tutorial and reference sections, examples, 
hints and tips, and a full index and glossary. 








BASIC compiler 


QL SUPERCHARGE is the most sophisticated BASIC compiler 
ever published. It is the result of 18 months work by a dedicated 
team of programmers led by Simon Goodwin, a top software 
designer and journalist. 


The verdict from Supercharge users: 


“Simple to use ... an excellent product which coped completely with the vagiaries of 
my own programming”, E. Cogswell, Havant. 

“Outstanding — the most important piece of QL software so far”, Mike Walsh, 
Birmingham. 

The verdict of Sinclair User (March 1986 issue) “A Sinclair User 
classic” x k*x*x* 

The verdict of QL world incorporating QL user, (March 1986 issue): The arrival of this 
product is a significant event for the QL, | have no hesitation in recommending Super- 
charge. 

“The manual is very informative and easily read... supercharge is great! Better than | 
ever expected”, R Schubel, New Jersey, USA. 

“May | say how pleased | am with Supercharge”, Richard Blake, London. 

“| was impressed by the quality of the implementation and high degree of compatabil- 
ity with SuperBASIC”, T. Gruber, Aachen, W. Germany. 

“Very high quality software... a very informative and useful manual”, Michael Gottlieb, 
Edgware. 

“Very good and fast in use. You seem to deliver hwat you promise, unlike other QL 
suppliers, R. Coughian, Liverpool. 


” Supercharge is a great improvement on SuperBASIC and has given me new faith in 
the QL”, T. Hansen, Norway. 


”/ was very surprised by the professional quality — it is really excellent”, F. Moya, 
France. 


“Invaluable... | think Supercharge is an excellent product, and the documentation 
puts Sinclair to shame”, Dr K. Williams, Putney. 


“The manual is very good. /t inspires confidence and has a sense of humour. Super- 
charge itse/f is great”. H. Gupta, Northampton. 


The manual is a model of clarity, readability and accuracy: congratulations! The car on 
the box should be a Rolls Royce”, M. Johnson, London. 


“Much more helpful than any previous manual | have ever read”, Dr W. Fuggle, 
Birmingham. 


“Easy to use — very well written”, J. Hayes, Leeds. 

“Very easy to use — very impressive”, Dr G. Taylor, Harrow. 

“Very impressed — should come as standard with the QL”, A. Pritchard, Surrey. 
"A credit to British enterprise”, Dr Helmut Aigner, Austria. 


” Excellent!” — Colin Opie, McGraw Hill; W.D. Software, Jersey; A Dedman, Ipswich; 
Dr Archer, Wakefield; C. Grogan, Huddersfield; G. Chew. Clwyd; K. Paul, Gerrards 
Cross; A.B. Steen, Eastleigh, Ingenieurburo Neitzel, Detmold, W. Germany... and 
many others. 


The latest version of Supercharge — version 1.17 — is available 
as an upgrade, price £10, to users who wish to get the very 
most from their compiled programs. 


Supercharge costs £59.95; this includes the compiler, code-generator, utility programs, add-on com- 
mands for task control and error-trapping, demonstration software and over 100 A4 pages of documenta- 


tion. £5 off SUPERFORTH, £5 off SUPERSPRITE and £2 off Super Monitor + Disassemble 
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All Digital Precision Software is available now. 
Software is compatible with ALL versions of the OL 
memory expansion and disk interface systems. 


Digital Precision software is DEALERS: our di 

available from TBD, Lightning, generous — haga ne 
Creative Sparks, and other 01-527 5493. 

distributors of good software. 

Buyers in Central London can PROGRAMMERS: We intend to 
visit Micro-Anvika at 224 dominate the QL software 
Tottenham Court Road. market, and we pay excellent 


Supercharge and Superforth royalties for good QL software. 
are available on 5% inch 1449 | S@nd_us a disk or cartridge 
sector disk at no extra charge. now, for a prompt, confidential 

evaluation of work in progress. 
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If you’ve a program that is worthy of consideration, send it to ‘The Progs’, Sinclair 


QL World, 79-80 Petty France, London SW1. We pay for everything published at the 


usual page rates. 


Solitare over them with adjacent pegs. The 
B Otridge object being to remove all but one of 

the pegs from the board in this fashion. 
Another board game, this time for The program includes a demonstra- 
those who prefer to plav alone. The tion and gives an assessment of your 
rules are very simple. Pegs are performance (‘Very Good, Good’ etc) 
removed from the board by jumping at the end of each game. 





1@ CLS:CSIZE 3,1:PRINT \\"Loading"\"Solitaire":MERGE mdvl_solitaire 

19@ REMark RR KK RRR KOK AKA OR ORK ORK KE 

110 REMark ******* SOLITAIRE ******* 

120 REMark ***** By B Otridge *****x 

13@ REMark 2K KR OK OR RR OR oR ok ROK 

140 ; 

15@ 

169 : 

170 REMark ***eKK Keke DATA KHER KK KAKA 

189 REMark Top-level menu data 

19@ DATA “CHOOSE ‘’Game’" .4,232,."F1","Help’ ,236,"F2".,"Demo" ,248,"F3","Play’",27,"E 

SCee Quit © 

20 REMark In-qame menu data 

219 DATA “CHOOSE ’Move’”,1@,192,CHR$(188), Move Lett” .200,CHR$(189),"Move Right 

. 208 ,.CHR$(190), “Move lip’ ,Z216,CHR$(191),°Move Down 

Z2@ DATA 194, °CTRL” &CHRS$(188),° Jump Left’ ,24@2,° CTRL’ &CHRS$( 189), Jump Right’ ,219, 

“CTRL” &CHR$( 190), Jump Up” ,Z18,° CTRL’ &CHRS(191),° Jump Down” 

230 DATA: 232, °F1"*.“Help™.27. "BSC" , “Quit 

24@ REMark Demonstration game data 

Z50 DATA 218,192,192, 208, 202, 200,194, 208,208, 200, 200,215 ,200,194,194,192, 202, 206 

. 208.202.208.218 ,206.208, 192,192,202, 216.215,215,216,216.218, 219, 248, 218,216,208 

.290, 290,194, 200.216,215,218.194, 203,218, 202,200,194,216.192,192,19Z,. 202,202,200 

.194,.210,19Z,192.192.192,216,216,21@, 202,.192,192,192,216,216, 219,192, 282,200,216 

.216,216,216,210@,218,194,192,216,216,218,202, 290, 200,216,216,216,200,194,216,219 

, 205 ,200.215,216.210,27 

Z6@ REMark End of game comment data 

270 DATA “Expert !'!'! Excellent !",4."Good Try”,6,"Average Attempt’ ,8,' Below 

Average’ ,1@,° Poor Show! ’,12,"Are you serious ?#77",.45 

28@ REMark Help screen data 

Z9@ DATA “This 1s a simulation of SOLITAIRE. The board consists of 45 holes; at 
the start of the game each hole except the centre one cantains a peg. The objec 

t is to finish with the lowest number of pegs left. Pegs may be removed by one p 

€q jumping over another into an empty hole; the *“jumped’ peg is then removed.” 

39M DATA “The cursor keys are used to move the pointer or ‘finger’ around the bo 

ard. A jump may be made by pressing the CTRL key with the appropriate cursor key 
only legal jumps will be accepted. The game may be terminated at any time by p 

ressing ESC.” 

310 REMark Board initial set-up data 

32@ DATA “ i, ac: BO ee OOO ich 2 

7) "." GBSBOODOD DOWDDo PADD 

33D : 

34D : 

35D : 

360 REMark ****** MAIN PROGRAM **x*x* 

378 MODE 4:setw @.512,256,9,0,9,.0,.9,.9:setw 0,168,240, 329,12,.1.4,8,1:setw 9,158,2 

39-333;,.17,1,4.,0,0::setw 1-.312),240.17,.12,2,.8,6,1 

38@ q$-CHR$(10):set _board 

399 REPeat games 

490 choose games 

419 IF game$="Help":display_help “game” 

42@ IF game$="Demo" OR game$="Play":do_game 

43@ IF game$="Quit":EXIT games 

44@ END REPeat games 

45@ ende:STOP 

460 : 

470 : 

489 : 

499 REMark **x*xxxk* SET BOARD 4% ex eax 

50@@ DEFine PROCedure set _board 

51@ DIM grid a$(13,13):DIM grid_d$(13,13):RESTORE 32@:FOR n=1 TO 7:READ a$: grid_ 

a$(n)=a$: grid d$(n)=at: grid_at(14—-n)=as: grid_d$(14-n)=as 

529 no_peags=44:ptr_a=7:ptr_d=5: pointer$="\ "“:old_ptr_a=7:old_ptr_d=5:CLS 

534 FOR n=3 TO 11 

540 i=(n<€ OR n-8) 

554 FOR m=3+3*(i) TO 11-3*(1):CURSOR m#32-74,n*Z4-54:INK 44+2*(grid_a$(n,m)="@"): 

PRINT grid_a$(n,m) 

56@ END FOR n 


570 aqame$="":CURSOR ptr a*3Z-88.ptr_d#24-63:PRINT pointer$:set_menu “game” 
_58@ END DEFine 

59@ : 

5a 

619 


62@ REMark **#4+%4*x% SET MENL +4444 a> 

63@ DEFine PROCedure set_menu(menus) 

640 IF menu$="qame": RESTORE 199 

65@ IF menuS="move”:RESTORE 220 

668 READ a$:CLS#0:CSIZE#@.z,1:PRINT#@,° SOLITAIRE”: CSIZE #0,2,0:UNDER#@,1: PRINT 
#2. aS\\: UNDER#@ .@: CSI ZE#@O,.1,.@:READ no 

678 DIM b$(3.no0,9):FOR n= 1 TO no 

68@ READ i:b$(1.n)=CHR$(1):READ bS(2,n):READ b#(3,n):PRINT#@.TO (6-LEN(b$(Z,n))) 
>b$(Z,n):TO 7;b$(3.n) 

692 END FOR n 

72@ END DEFine 

710 : 

72@ 

73@ : 

74G REMark **¥**X**KKee CHOOSE 4A Ke KK 

75@ DEFine PROCecure choose (choices) 

76@ REPeat get choice 

772 i=KEYROW(@):IF game$<>"Demo":i$=INKEY$(-1):ELSE :i=KEYROW(1):IF i=8:i$=CHR$( 
Z7):ELSE :READ 1:i$=CHR$(1) 

78@ FOR n=1 TO no: IF i$=b$(1,n):choice$=b$(3,n):RETurn 





50 


END REPeat get _choice 
END DEFine 


REMark ******x DISPLAY HELP ****x* 

DEFine PROCedure display_help (level$) 
RESTORE 29@:IF level$="move":RESTORE 300 
READ a$:prinw a$ 

set_menu level$S 

END DEFine 


93@ REMark ROKK DO GAME KKK 


949 DEFine PROCedure do_gqame 

95@ game_end=9:move$="":set_menu “move":IF zame$="Demo": INK#@,6:prin gq$&q$&"This 
is a demonstration of SOLITAIRE. press <ESC> key to terminate. “: INK#0,9:RESTOR 

E 2590 

96@ REPeat moves: do_move:IF game_end:EXIT moves 

97@ n=1:RESTORE 27@:REPeat ab:READ a$:READ m:IF no_pegs<m:EXIT ab:ELSE n=m 

989 CLS#@:CSIZE#0,1,1:prinw “You have finished this game with “&no_pegs&" pegs l 

eft. "&qt&q$k&aF: CSIZEHD,1,9 

999 set_board 

10@@ END DEFine 

119 

1920 

1038 : 

1@4@ REMark ***xxA*** DO MOVE #&*ke*KH* 

105@ DEFine PROCedure do_mave 

1069 old_ptr_a=ptr_a:old_ ptr_d=ptr_d:no_move= 

1870 REPeat valid _move 

1388 pick=@:valid=@:choose a_moves 

199@ IF a moves="Help":display_help “move” 

1189 IF a movesS="Qu1t":qame_end=1:RETurn 

1110 IF a_moves="Move Left":IF gqrid_a$(ptr_d,ptr_a-1)<-" 
id=l:iner=-6 

1120 IF a_movet="Move Right’: IF grid_as(ptr_d,ptr_atl)<>° “:ptr_a=ptr_atl:va 
lid=1:incr=8 

1138 IF a_movesS="Move Down":IF grid_a$(ptr_d+l,ptr_a)<>" “:ptr_d=ptr_d+l:val 
id=1:incr=6 2 

1148 IF a move$="Move Up”":IF grid_a$(ptr_d-1,.ptr_a)<-" 
=l:inecr=-6 

115d IF a_move$(1 TO 4)="Jump” AND grid_at(ptr_d,ptr_a)="0" 

1169 pick=1 

1179 IF a move$="Jump Left":IF grid_a$(ptr_d,ptr_a-1)="9" AND grid_a$(ptr_ 

d,ptr_a-2)="o0":ptr_a=ptr_a-Z:valid=1:incr=-4 A 

1189 IF a_move$="Jump Right":IF grid_a#(ptr_d,ptr_at1)="9@" AND grid_a$(ptr 

_d,ptr_a+2)="0"::ptr_a=ptr_a+2:valid=1:incr=4 

1190 IF a_move$="Jump Down":IF grid_a$(ptr_d+1l,.ptr_a)="@" AND grid_a$(ptr_ 

d+2,ptr_a)="0":ptr_d=ptr_d+2:valid=1: incr=4 

1296 IF a_move$="Jump Up":IF grid_a$(ptr_d—-1l,ptr_a)="6" AND grid_a$(ptr_d- 

2.ptr_a)="o0":ptr_d=ptr_d-2: valid=1: incr=-4 

1219 END IF 

1229 IF LEN(a_move$ )>6: a_move$=a_move$(6 TO) 

1239 IF valid: EXIT valid_move 





“:ptr_a=ptr_a-l:val 


":ptr_d=ptr_d-l:valid 


1249 END REPeat valid_move 
125@ IF pick:pegupdn old_ptr_a,old_ptr_d,pointer$:no_pegs=no_pegs-1 
1269 IF a_move$="Lert" OR a_move$="Right”:x=ptr_d*24-63:FOR n=ald_ptr_a*32-88 TO 


ptr_a*32-88 STEP incr:CURSOR n-incr,x:PRINT “ 
ER 1:CURSOR n,x:PRINT pointer$(1):OVER @ 
1279 IF a_move$="Up" OR a_move$="Down":x=ptr_a*32-88:FOR n=old_ptr_d*24-63 TO pt 
r_d*24-63 STEP incr:CURSOR x,n-incr:PRINT " ":CURSOR x,n:PRINT pointer$(2Z):OVER 
1:CURSOR x,n:PRINT pointer$(1):OVER @ 
1289 IF pick 
1299 INK 4 
1380 IF a move$="Left":grid_a¢(ptr_d,ptr_a TO ptr_atZ)="@oo":grid_d$(ptr_a,ptr 
d)="@0":grid_d$(ptr_atl,ptr_d)="0": grid_d$(ptr_at+Z,ptr_d)="0":CURSOR ptr_a*32-42 
»ptr__d*24-54:PRINT "5" 
1319 IF a_move$="Right”:grid_a$(ptr_d,ptr_a-Z TO ptr_a)="008": grid_d$(ptr_a,pt 
r_dj="@": grid d$(ptr_a-1l,ptr_d)="0": grid _d$(ptr_a-Z,ptr_d)="o0" : CURSOR ptr_a*3z-1 
06 ,.ptr_d*24-54:PRINT “o” 
1320 IF a_move$="Down": grid _d$(ptr_a.ptr d-Z TO ptr_d)="90M": grid_a%(ptr_d,ptr 
a)="@":grid_a$(ptr d-l.ptr_a)="0":grid_a$(ptr_d-Z,ptr_a)="o0":UURSOR ptr_a*32Z-74 
.ptr_d*24-76:PRINT “oo” 
1339 IF a_moves="lJp":qrid_d$(ptr_a,ptr_d TO ptr_d+Z)="@oo0":grid_a%(ptr_d,ptr_a 
\="@" :qrid_a$(ptr dtl. ptr_ajy="9": grid_as(ptr_d+2Z,ptr_a)="0": CURSOR ptr_a*32-74.p 
tr_d*Z4-30:PRINT “o" 
134d INK 6:pegupdn ptr_a,ptr_d,pointers 
1350 no_move=1:test_move grid_as’:IF no_move:test_move grid_d* 
136@ END IF 
1378 IF no_move: aame_end=1:RETurn 
138@ END DEFine 
13990 : 
1480 
1410 : 
142@ REMark *****x44 TEST MOVE **444% 
143% DEFine PROCedure test_move(gqc$) 
1449 LOCal n 
145@ FOR n=3 TO 11:IF (“o@@ INSTR ac$ind) OR ("OOo INSTR get(n)):no_move=: RET 
urn 
1469 END DEFine 
14792 : 
1480 
1498 : 
15@@ REMark *#4%#4*%e*% PEGUPDN #*#ee e+ 4* 
1510 DEFine PROCedure pegupdn (a,d,pts) 
152@ m=a*32-86:FOR n=d4#24--6Z TO d*z4—-54 STEP 2:CURSOR m.n-Z: PRINT 
URSOR m.n:PRINT pt$(1):OVER 1:CURSOR m,n:PRINT pt$(Z):OVER @ 
1538 CURSOR m,n:PRINT " 
1549 IF ptS="\ ":ptS$="\0": rS="0" : ELSE zptsS="\ “:rs="O" 
155@ m=a* 32-74: mm=m: nn=d*24—-54:FOR n=nn-1 TO nn-9 STEP -—2:CURSOR m,n-4:PRINT 
:m=m—-2.8:CURSOR m.n:PRINT pt$(2):OVER 1:CURSOR m,n:PRINT pt$(1):OVER @:CURSOR mm 
wnn: INK 4+2*(r$="@"):PRINT r$: INK 5 
1569 CURSOR m.,n:PRINT "\ " 
1579 END DEFine 
1580 : 
1592 : 
16@@ : 
161@ REMark ***#***KK* SETW ROKR KOK 
162@ DEFine PROCedure setw (ch,wi,de.x.y.cs,pa,in,bo):WINDOW #ch,wi,de,x,y:CSIZE 
#ch,cs,@:PAPER#ch, pa: CLS#ch: INK#ch, in: BORDER#ch,bo,@,6:END DEFine 


“:CURSOR n,x:PRINT pointer$(Z):OV 


“:m=mt+3.11:C 
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1639 : 
1649 : 
1650 ; 


1668 
1679 
168 
1699 
1788 


REMark **kKKK PRIN OKO 

DEFine PROCedure prin (c%#):LOCal st.n 

st=1:FOR n=1 TO LEN(c$):IF c$(n)=" ":IF n>st:PRINT#@; !c$(st TO n-1);:st=ntl 
IF n>=st:PRINT#O:;: !c$(st TO n) 

END DEFine 


1710 : 
1726 : 
1730 : 


1743 
1758 


$(@ 


1768 


REMark ***k*KKK PRINW oR OOKK 
DEFine PROCedure prinw (z2$):CLS#@:prin z$&" "&q$&q$:FOR n=1 TO 200: i$=INKEY 
) 


prin “Press any key to continue “:;z$=INKEY$(-1):CLS#@:END DEFine 


L770) 

1780 : 

1799 : 

1890 REMark *********x ENDE *****kOKXk 

181@ DEFine PROCedure ende:setw 9,512,256,9,9,9,9,9,9:setw 1,168,3@,172,179.2.7. 


G5 


:PRINT "Fl...monitor"\"F2...TV":REPeat g:n=CODE(INKEY$(-1)):IF n>231:EXIT g 


1820 IF n=23Z:setw 9,512,50,0,206,9,0,6,0:setw 1,256,202,256,0,8,2,6,1:setw 2.25 


6.202,.9,9,0,6,0,1:MODE 4:ELSE 


on 


:setw 9,448,49,32,216,2,0,7,9:setw 2.448,200,32,16 
1,7,9:setw 1,448,200,32,16,2,2,7,@:MODE 8 


1838 END DEFine 


Hex Loader 
R Williams 


Those of you who are dounted by the 
prospect of entering Progs listings con- 
taining extensive data statements will 
find this a very useful utility. The pro- 


era 


keyboard, or a microdrive file and 
pokes it directly into memory. The line 


19@ 
110 
12@ 
130 
149 
159 
169 
17@ 
180 
19@ 
2BO 
218 
228 
230 
248 
NTER 
25@ 
268 
270 
280 
290 
30D 
le?" 
318 
32@ 
330 
348 
358 
360 
37D 
38D 
398 
49D 
410 
429 
439 
449 
456 
ta): 
469 
47D 
480 
499 
52O 


number and address of the poked 
entries is listed to the screen so 
changes can be made if required. Lines 
containing repetitions of the same 
number can be easily entered by input- 
ting the first item and pressing return 
for each subsequent repetition. The 
part finished or complete file is saved 
to microdrive for later use; it being 
loaded in the usual way. 


m allows you to enter data from the 


REMark MACHINE CODE HEX DATA PROGRAM 

REMark RICHARD WILLIAMS 27/11/85 . 

MODE 4:WINDOW#@,492,.51,10, 265: INK#@,7:CSIZE#0,1,.9 

WINDOW#2 , 504 ,205,4,0: PAPER#2,5:CLS#2Z 

WINDOW##2 , 504 .14,4,0: PAPER#2Z, 2: INK#Z,7: BORDER#2,1,.7:CLS#2 

WINDOW#2 , 500,.10.6,2: BORDER#2.9,9 

WINDOW 488,182,12,18:BORDER 1,98 

WINDOW 484,180,14.19 i 

OPEN#5,scr_13@x2@al2x236: INK#5.5:PAPER#5.2:CLS 

CSIZE#2,1,0:PRINT#2, TO 14; ’*Machine Code Hex Data Program’ 

MAIN 

REMark OOOO OOK GOO ROK Fok ok 

DEFine PROCedure MAIN 
CLEAR: Poking=@: lin=1900:Max_line=@: FOPEN=@: A=@: num=@: DIMS=@: AP=1 
CLS: CLS#0: PRINT#0,"POKE DATA: ":PRINT#0," ’P'oke; Poke_’W’:; Poke _’L’ 


IF AN# INSTR ’PpWwLl’=8: GO TO 3a0 
INPUT#®Q, ' Enter Respr: ‘;res;:base=RESPR(res):A=base 
PRINT#@.’ = *;:base;:PAUSE 4@: Poking=l 
IF ANS=='W’: AP=Z 
IF AN$S==’L':AP=4 
CLS#@:AT#0,1,0: PRINT#@, “'I’nput Existing Data File or ’S’tart New Data Fi 
: BEEPX ; 
LET AN$=INKEYS(-1)3 
IF ANS INSTR 'TiSs'=8@:G0 TO 316 
IF AN$=='I’:DIR mdvl_ : EXISTING: OPEN_IT:STORE: ELSE :OPEN_IT 
IF FOPEN 
IF Max line>@ 
CLS 
IF Max_line>16 
PRINT x$(Max line-16 TO Max_line-1) 
ELSE 
PRINT 
END IF 
PRINT x#(Max_line):’ 
END IF 
CLS#2:PRINT#Z,’ DATA ENTRY’: BEEPT 
CLS#@: AT#@,.1,.@:INPUT#@, ’NEW DATA: ’\’Start Line Number 
*;LIN$; BEEPX: IF LIN$=’’:GO TO 47@:ELSE :lin=LIN$ 
A1=A: WHOLE=1: DIMENSIONS: INPUT_IT 
CLS#2:PRINT#Z.’ Closing Data File: ’°:name$:CLOSE#3:FOPEN=0 
CLS#9: AT#9,1,@:PRINT#@,"’B’ackup Data File?”:ENTER 
IF AN$==’b’ 
CLS#@;: AT#0,1,@: FLASH#@, 1: PRINT#@,’Put Backup in MDV2 — Any key to go on.. 


x$( TO Max_line-1) 


< Last Existing Line’ 


(ENTER if no new da 


.’ : FLASH#@,@: PAUSE 


518 


CLS#2:PRINT#2.’ Copying Data File from MDV1 to MDV2’:DELETE ’mdvZ_’ &name$ 


&’ _mcdf’:COPY ’MDV1_’&name$&’ mcdf’ TO ’MDV2_’ &name$&’ mcdf’ 


520 
530 
549 
550 
560 
570 
580 
599 
690 


END IF 
END IF 
IF Poking 
CLS#@: AT#@,1,@: PRINT#@," 
IF AN$==’s’ 
CLS:DIR mdvl1_ 
CLS#0: AT#0,1,0: INPUT#@,"Name of EXEC File (Mdvl_*_exec): 
INPUT#@,’Enter Data Space: ’;ds 
UPPER name$:CLS#2:PRINT#2,’ SEXEC MDV1_’;name$;’_exec’;’,’;base;’ 


’S’ EXEC Code?": ENTER 


";name$ 


,’>; res; 


.’3ds 


619 
620 
638 
649 


DELETE ’mdv1_’ &name$&’_exec’ :SEXEC *’mdv1_’ &mame$&’ exec’ .base,res.ds 


CLS#@: AT#0,1,@: PRINT#2, " 
IF AN$==’b’ 
CLS#0: AT#0, 1,0: FLASH#@, 1: PRINT#@, ’Put Backup in MDVZ - Any key to qo on> 


"B’ackup SEXEC File?" : ENTER 


’ ; FLASH#@ ,@: PAUSE 


658 


CLS#2:PRINT#Z," Backing Up Sexec File”:DELETE *mdvé _' &naym$%x’ exec’: SEXE 


C ’mdv2_’ &maym$&’ exec’ .res,A.ds 


660 
67D 
68D 
698 
70D 
719 
720 
730 


a Program,"\" or this program can be used to FPOKE and/or alter Data List. 


END IF 

END IF 

END IF 
CLS#@: AT#0,1,@: PRINT#O, 
IF AN$==’F’ 

MAIN 

ELSE 

CLS#@: AT#0,1,@:PRINT#@,"Data List can be LOADED/MERGED tor insertion into 
:CSIZE 


"’F’urther Data Entry?":ENTER 


#0.0,0 


749 
750 
762 
77 
780 
79 
BOD 
B1d 
820 
83 
B49 


STOP 
END IF 
END DEFine MAIN 
REMark JOGO OOOO KR HE 
DEFine PROCedure EXISTING 
first=1:first$='’:LIN$=’’:LAST$=’'’-AI=A 
ENTER NAME 
AT#0.1,@: INPUT#@,’Existing File Name (Mdvl1_+ mecdf): 
IF naym$=’?’:CLS:DIR mdv1_:GO TO 81@ 
IF naym$=’':RETurn :ELSE :OPEN_IN#4, *mdvl 
Max_line=1:MAX_LEN=0 


“;naym$:liPPER navmt 


“&naymt&* medi’ 
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859 REPeat LOOK 


86S 
876 
88D 
89S 


INPUT#4 ,d$: IF EOF(#4):EXIT LOOK 

IF d$=’’:NEXT LOOK 

IF LEN(d$)>MAX _LEN:MAX LEN=LEN( ds) 
Max _] ine=Max_linet+l 


969 END REPeat LOOK 
919 CLOSE#4 
928 DIM x$(Max_line ,MAX LEN+1@) 


930 OPEN_IN#4,’mdvl_’ &maym$&’_mcdf’:CLS:CLS#: PRINT#2. 
ym$;’_ 


Listing trom Mdvl_':na 
mcdf’;:IF Poking: PRINT#2, TO 49;’POKED AT:’ 


94@ FOR LOOK=1 TO Max_line 


95d 

966 

97 

98o 

998 

1629 
1618 
1926 
193 
1940 
1659 
1669 
197 
1089 
189 
118 
1118 
1128 
1130 


IF EOF (#4):Max_line=LOOK:EXIT LOOK 
INPUT#4 ,d$: IF LEN(d$)<1:LOOK=LOOK-1:NEXT LOOK 
x$(LOOK)=d$:PRINT d$;:IF Poking:PRINT TO 65,Al1; 


IF first 
FOR Z=1 TO LEN(d$) 
IF’ d$(Z)=" *:EXIT Z 
first$=first$kd$(Z) 
END FOR Z 
first=0 
END IF 
FOR Z=1 TO LEN(d$) 
IF: 'd8(Z)=” % = EXIT Z 
LINS=LIN$&d$(Z) 
END FOR Z 


IF Poking: POKE_IT:A1$=A1-AP:PRINT ’-’;A1$(5 TO 6):ELSE :PRINT 
END FOR LOOK 

CLOSE#4: A=Al 

CLS#0: AT#@,1,.@: PRINT#O@, ” 
IF AN$==’c’: CHANGE IT 


*Ctheck/Alter Existing Lines?" :ENTER 


1146 END DEFine EXISTING 


115@ 
1169 
1174 
1188 
1190 
1206 
1218 
122@ 
1238 
1248 
125@ 
126@ 
1278 
L288 
1292 
1 38@ 
1312 
132@ 
1338 
1342 
1358 
1368 
1378 
1380 
139 
1480 
1418 
1429 
1439 
144@ 
1458 
1460 
1479 
1480 
1490 
1589 
1519 
1520 
c$ 

1530 
1549 
155d 
1569 
1579 
15898 
1590 
1690 
1619 


1629 
1630 


CHECKING: ELSE 


1640 
1650 
1668 
157@ 
168@ 
169@ 
1780 
1710 
172 
1730 
174@ 
1752 
1760 
1776 
17384 
179@ 
1800 
1816 
182 
1830 
1840 
1850 
1860 
1876 


, 


1860 


END 
REMark 
DEFine PROCedure BEEPU 


END 
REMark 
DEFine PROCedure BEEPW 


END 


REMark 
DEFine PROCedure BEEPX 


*:num=numl:ELSE 


REMark et HTKKHRKH DEAE EDR ETE eet 
DEFine PROCedure CHECK IT 


FOR Z=1 TO LEN( TEMES} 
IF TEMP$(Z) INSTR ‘@1Z25450789AaBe-' 
END FOR Z 


=0:PRINT#@,’+-Errar ';:BEEPU:GU TO 454d 


END DEPine CHECK IT 
REMark 
DEFine PROVedur= PORE _IT 


FA FAKAEFE EE ERO eH E RHEE DOD 


FOR Z=1 Tw LEN. ds 
IF d$(Z TO Z+3'<>"DATA': NEXT 3 
temp=Z+5:EXMIT Z 
END FOR Z 
NUMBER=6: NUMBERS=' °:M4INUS=a 
FOR Z=temrm TO LEN( dt) 
IF 4$(2)=°-":MINUS=AL 
IF d$(Z) INSTR °@123450789° : NUMBERS=NUMBERS &d3 (Z) : NIIMBER=NUMBERS 
IF dS(Zs=".' OR Z=LEN OAS 


IF MINUS: NUMBER=-NUMBER: MINUS=S 
IF AP=1:POKE A1,NUMBER 
TF AP=Z:POKE W Al,.NUMBER 
IF AP=4:POKE L Al,NUMBER 
A1=A1+AP: temp=Z+1: NUMBER=0: NUMBERS=’’ 
END IF 
END FOR Z 


END DEFine POKE IT 
REMark 
DEFine PROCedure CHANGE iT 


HORROR OR ROR FOR ORR ORO OR ROR RR KOR ROK OK RRO 


DIMENSIONS: prem=firsts 
REPeat CHECKING 
CLS#@: AT#0,1,0:PRINT#@,"’C’heck line by line + checksum’: ENTER 
IF ANS==’c’ 
CLS#0; AT#@,1,@: PRINT#@,""E’xit Listing: ‘7’ 
FOR LOOK=1 TO Max line 
d$=x$(LOOK):SPLIT_IT 
PRINT x$(LOOK);’ = ’; TOTAL: ANS=INKEY$(-1):IF AN$==’E’:EXIT LOOK 
END FOR LOOK 


to View Next Line":CLS 


END IF 
CLS#0: AT#@.1.@:INPUT#@,’Enter Line to be Chanaed (or ENTER to Exit): 7 0} 
IF KEYROW(1) AND nc$=’*:IF KEYROW(1)=1:RETurn :ELSE :GO TO 152@ 
FOR Z=1 TO LEN(nc$) 
IF nc$(Z) INSTR ’@123456789’=0:G0 TO 1526 
END FOR Z 
nnc=nc$: lin=nc: LIN$=lin:CLS 
nce=(ne-prem)/19:PRINT x$(nc+1) 
IF Poking: Al=(base+(nc*(nmum*AP) )) 
WHOLE=@: INPUT_IT 
x$(nc+1)=DATALS 
IF Poking: d$=x$(nc):POKE IT 
CLS#@: AT#@.1,0:PRINT#O, “‘C’ontinue Alterations.” :ENTER: IF AN$=='c’:NEXT 


> EXIT. CHECKING 
END REPeat CHECKING 


END DEFine CHANGE IT 
REMark FERRER EER KEKE TROPPO EE eee 


DEFine PROCedure BEEPT 


BEEP 5@@6,5:PAUSE 5:BEE! 50ua.14 


DEFine BEEPT 
*SEMEMM MMMM ME On Wn 5 SEE LERY 
PEEP 4002, 220 
DEFine BEEPU 


%0% 00% 70676" % 0% 690% EMO Oe OW Ot % D4 OK OE 
BEEP 3000.1,255.200.4.2 
DEFine BEEPW 


YY D0, 0,0 4:34 9.9-8 9 0. 9 2. Oo ep wy er eH O, Se pe oS 
©6566 6% b 2% OSHS OSH OS Ot Se SS 


BEEP 30@6,1 


END DEFine BEEPY 
REMark FHFRKHAEHE ELA PH AHKARD EAE ORE TE he tte 


DEFine PROCedure DIMENSIONS 


IF NOT DIMS 

CLS#@: ATH#G,1,0: PRINT#Y. DIMENSIONS OF DATA ENPEIES:* 
INPUT#3, “Number of Data Items mer Line nmumi:. BEES 
INPUT#@,’Number per Checksum tENTER tur same None 
>num=nums$ 


DMumt:brebe: Db rwss 


DIMS= 


1890 END DEFine DIMENSIONS 
199D REMark *EAAKED REE A RK KEDAH ORE 


1910 
1920 
1930 
List; 
19490 
1958 
1960 
197@ 
1986 
199@ 
2808S 
2018 
2620 
ELSE : 
2830 
2@4G 
2058 
New 
2869 
2O7O 
288 
269D 
2180 


DEFine PROCedure INPUT [T 


A2=Al 
PRINT#2Z, *’ DATA ENTRY: ’; :CSIZE#Z,0,.0:PRINT#2. (*A port 
ENTER to Repeat)"::IF Poking: PRINT#Z,TO 65; POKED AT: ” 

REPeat ENTRYLOOP 
REPeat typein 
suml=@:DIM di¢$(num, 18) 
CLS#@:AT#2,1,0:PRINT#@,’ENTER DATA for Line 
FOR fsum=1 TO num STEP num] 
IF numl*num:PRINT#@,’ ’:;tsum:’)’; 
FOR lyn=@ TO numl-1 
INK#@,5: INPUT#@,d:$(fsum+lyn); : TEMPS=di$(fsumt+lyn): iINK#U,7 
IF TEMP$=’’: INK#@,5: di$(fsum+lyn)=atemp$: TEMP$=atemps: PRINT#0. atemps; : 
atemp$=TEMP$:END IF  : INK#@,7 
CHECK IT 
IF TEMP$==’E': BEEPT:numl=lyn:EXIT typein 
IF TEMP$==’ a': BEEPIJ: CLS#@: AT#O,1,@:PRINT#Q, ' 


‘E’sait Date 


line; 


CCT OF 


Line Aborted! Please Enter 


Line.":PAUSE 4@:NEXT typein 


IF lyn<«numl—1: INK#@,5:PRINT#@,','; : INK#2@,7: BEEPX 
di=TEMP$: suml=suml1+di 
END FOR lyn 
END FOR fsum 
BEEPW: PRINT#@\\’ SPACE if not)’ :ANS=I 


Total=’;suml;’ (ENTER if Correct; 


NKEY$(-1) 


£118 
2129 
2130 
2148 
2158 
2168 


IF AN#==" 

CLS#@: PRINT#@.’Checksum Error! 
ELSE 

EXIT typein 

END IF 
END REPeat tvpein 


Please re-enter.*:BEEPI: PAUSE 5 
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2170 FOR 
lyn=@ TO (num- 
DATALS=LINS&* ie ere 
ove Ail et 1 TO numl 
oking: poke_ 
IF eis wor d=di#(DATAL 
ees lyn):POKE Al, 
<mam See RAL crave’. CELSETDATA xe 
Lee SATALEES 
is (D 


Le Hungry Harry 

EAD £8 DATAL J M Dowe f 

PRINT DATALS; : r ew lin ili 

BOER EL Yi is ae toc istics te TO GHsA2s Ss es utilised and the effectiv 
END FOR ly :LiNS=lin: IF FOPEN: ee TALS (5 TU @):ELS ; : res | c 
Bue eee SORE hE : PRINT This is a Si ae 
2280 IF TEMPS ie Se nexIT. “ELE :A=Al simple, yet interesting Don 

CE A ea al a 1 ENTEYLUAE ile ot fully flung machi 
241@ ENL EF ine =<NEit IT ao 


implementation of the famili 
miliar ‘chase cod 
and munch’ code spectacular, but it’ 
micros en ere onall good in. Type mite @ et 
: 1 : 
ncluded it because of graphics prior to running ae, the 
ram. 





232@ FEN . 
2330 perce Se eipel ga sorry ese eeeerevarest 
ee IF POPEN: BETurn EEN UG : 
=#JZ- ad : = : a) 
2308 Ha i. = navi Teo oR ; 
ms BE 2 wae 
$: UPPER =P: INP! Tao, 
Z379 nace aE ght) : rinsesneTarn Data File N 
236 names= RETurn ame (mdvl_* a 
2390 DELETS “NDVI pone TO 2308 ee eae 198 REMark 
2 JEHHHIHHHHHHHHHE 
ca END DEFine CrEN It F& aes - OPEN “NEWS. 118 REM 
sige REMark teassamoncsconceé 'mdvl_’ &names&’ _mcdf’ 128 RE ark #® HUNGRY HARRY 
2420 DEFine PROCEdure — 138 REMark pipe agatha FORS 
: PRINT THE 
2430 END DEFine STORE [ap REMerk # OL 
2450 Pert tiiitelce EEE <aenesacdene’ maior cates % BY J.M.DOWER ¥ 
60 CLS#5:PRINT#S." TER a ark JHHHHHHHHHHHHEHHE 
tate : 
EYS er to SEL 
2480 END DEF ine Ce ECT’\’ or ENTER to Go On. : BEEPT ape teEece ome 
ark *khkKe Re EFine 
2580 SaRKAEK PROCed 
2500 DEFine PROCedure tac oo aie aeeiar: tS TPAPER eaimacc an 
252@ FOR TES ET=i:sh ,2:CLS ag 
T= 2 eets 
ole oe aRRTECTI 228 INK 4:AT 15,2: 
oe40 IF F296 THEM STRS( 238 AT 16,7:PRIP PRINT “USE CURSOR 
HER STR$(TEST)= 248 AT INT “PRESS ( KEYS TO CON 
CHRS(F-32) cab ii 17,7:PRINT "PRESS Sens TO BOMB" TROL HARRY* 
ste ey=KEYROW(4 NTER) TO P 
gue Reels GheccAine CMiek re eer ine ben TITLE. bt So init: TELSE @ 
2599 CLS#@: CEDEnieS SHER Ae rite tht PROCedure ers 9, 1S 28 

AT#O. 3,0: se APER #9,8: pick 
2610 PAPERSO.@ PRINT#@."Enter Name or ’?’ for Dir “\’ 298 yi ne ny apna Ae @:CLS: SHEET=2: 
be oo DEFine ENTER _NAME ir “\’Type ENTER to go on pied SCREEN_INIT >count=9: BOMBS=5 2: HIGH=2999 
2640 ee a i eae coe DEFine init 
265@ TOTAL= e SPLIT_IT <x 338 ine PROCedure u 
2660 ° AT 9,18: INK pdate 
‘ FOR Z=1 348 2: PRINT 
267 TO LEN(ds AT 6,18: FILLS("e* 

2 IF as(Z TO Z 358 INK 2: PRINT e »lives) a? * 
2680 temp=Z+ +3)<>*DATA’ : NEXT AT 18, 16: INK score 
a ee eats : Zz 368 END DEFine 2:PRINT BOMBS 
2700 NUMBER=@: 378 x@19:y=7 update 
271@ FOR Z=t NUMBERS =’ ’ -MINUS=@ aon obs ee 
IF ds(Z)=?- Ly ‘LEN(GS) 398 REPe ee 
IF d$(Z) INST NUS=1 489 at main 
IF ds( STR ’0123456789’ FOR loop=i 
2750 TF $(2)=" |= OR Z=LEN(38) : NUMBERS =NUMBER$ &d$ (Z ) : NUMBER=NUMBE pe xuextyyey TO 2 
TOTAL=TOT BER RS € 
2770 A TOTAE.*+NUMBER : NUMBER=@: NUM 4398 See ig 
END FOR Z 43a y»™) 
2880 IF c$=" 
2829 ark F¥EKKRORAKEKS update: scrs( enwe y-1,x-1: PRINT =i @ 

DEFine PROC 4K ED RK pme ee ¥ox :score= 
2830 LOCal aos SAV PARA EEN 468 fer cgeere THEN EEE key T score+5S: 
2842 CLS#0:PRINT#®. ‘SAVE P gle Nick THEN BEEP aoe caray Geum 
ee te From fine (Ent TO MDV1 & 2° : INPUT#O. 478 ie oe echretaerostaty Hereln SL oe adi te 
2860 a aaa aa ER for first): "EILE NAME: - FLNS a nianesee THEN BEEP 509,68: AT y.xder "SIF key THEN. » 
67:ELSE :savto= To (ENT e:scrsly,x J=" °5 »8:AT y-1,x-1:2PRINT® °: ‘ ReyeyOM 
eee Reece PRINT#®. SAV ER for last): ‘:sevto$:IF savtos= as La co=°** THEN AT “ee key THEN moveyou {Scores score soes 
2890 A aeolaele MDV1 ‘AFLNS: SAVE. "HDV] FLN$!savfrom!’TO’! o$=’':savto=327 aos INK 6: PRINT "KZ OVER ideale 2:PRINT °*":OVER 1:A 
2900 DELETE *SAVING MDV2 ’:FLN 1 ’&FLN$S, aevitow Tc SaVtO 399 I 2 he? Bd 2 sAT y-i,x-1: 
2918 ‘MDVZ ’ &FLNS: $!savfrom! TO’ Vics SLES NK 4:AT y-1,x-1: 

Scn femuok see SAVE "HDV2." #FLNS. savErcin 7) cs abieg d tiiiset nchia~a PA “e° 
ae wewneewik eh cadnaaerekex savto ae eons bepmauesent PRINT ° ° 
~ F scr®(MONb 
S349 IF co »MONA) ="*°" TH 
unt EN m 
Sse IF count~392 AND SHEET=3 THEN CLEARSHEE 
HEET=3 THE T: SCREEN 
N CLEARSHEE _INIT:GO T 

T: SCREEN_IN 0 378 

_INIT:GO TO 37 

g 


548 IF scr#(MONb 

Som SHC LAT Hone’, HONA_leecaint 
598 Se 
698 update NA AND y=MONb) THEN EXIT 

pte NEXT loop main 
pee ioe REPeat main 

pd con net To 38 

658 INK nZAT 

649 roa y-1,x-1:PRINT*!*" 

678 lives=lives-1 

688 AT y-1,x-1:PRINT® " 


won 698 sersty.n)=* * 


718 IF lives>® THEN GO TO 378 


nc 


728 update: GAME_OVER 


GL elle q 735 DEFine PROGedure monster | 


7358 IF MONA> 
x AND 
scr®(MONb,MONA-1)<>°#" THEN MONA=M 
=MONA-1:RETurn 


a 01 0 


i: 
i onooonnnel 
uO = ‘womnMNOH -wwmawmun i | 3 eS ee 

“mmm | Sema "ane ee 


dropbomb 
IF key=2 OR 
key= 
y=66 THEN moveleft: IF key=66 AND BOM 
BS>S THEN 


il 
LL 
il auuenennngnnntty 2 
w aie w wm MO | one 
mh = 2 ae -2e- 
i 4 janunnntsanteal | soe eae zerine severe own:XFhayei¥2 AND ROMS) 
w- TTL monn paneer se oo 

il ionenannennn: ‘nonnnoNAnel | Eres 


IKK = c8¢>"#" THEN xx=x-1 
4 ww OO 0 


O7=_JZHun Wie ea 
eaaaeaasers TTT LLL | 
an nUHMERONNERS THEN yysyet 


A eo ae 
M Ml movedown 
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1928 END DEFine movedown 
18398 DEFine PROCedure dropbomb 
1948 IF scr®(y,x)=".* THEN count=count¢l 


19358 scrS(y,x)=°*":AT y-1,x-1:; INK 2:PRINT "*"; OVER L: INK 6: AT 


y-1,x-1:PRINT "kk": OVER 8: BOMBS=BOMBS-1 
1868 END DEFine dropbomb 


18768 : 


16688 DEFine PROCedure SCREEN_INIT 
1998 sheets 

1168 AT 6,12:PRINT *SCORE® 

1119 AT 9,12:PRINT "LIVES" 

1128 AT 18,12: PRINT °BOMBS®” 

1138 END DEFine SCREEN_INIT 

1148 DEFine PROCedure sheets 

1138 LOCal x,y 

1168 DIM scr#(28,37) 

1178 IF SHEET=1 THEN RESTORE 1349 
1188 IF SHEET=2 THEN RESTORE 1559 
1198 IF SHEET=3 THEN RESTORE 1769 


1218 READ scr$(y) 
1228 NEXT y 

1238 FOR y=1 TO 28 
1249 FOR x#1 TO 37 
12359 c®=scrs(y,x) 


1268 IF c®="#"° THEN INK 6:AT y-i,x-1:PRINT °#°:NEXT x:NEXT y 
*:NEXT x: NEXT y 
1288 IF c#="({* THEN INK 4:OVER 1:AT y-1,x-1:PRINT "{°SAT y-1,x-1: INK 


1278 IF c$=".° 


THEN INK 1:AT y-1,x-1:PRINT °. 


2:PRINT"}°: OVER @:NEXT x: NEXT 


1298 IF c@="+° THEN INK 2:OVER I:AT y-1,x-1:PRINT "*#°:AT y-1,x-1: INK 


4:PRINT °-":OVER S: NEXT x:NEXT y 


1388 IF cS=" 


*" THEN NEXT x:NEXT y 


1318 NEXT x 


1328 NEXT 


y 
1338 END DEFine sheets 


1348 DATA “JHHHHHHHHHHHHAHHHHHHHHHHHHHHHHHHHHHHHE * 
1358 DATA °# #° 
1368 DATA "# + ¢ ¢ ¢ © & 644 £444 ¢ + . 
1378 DATA °# $444 ¢ ¢ 64 © ¢ + + 444 #° 
13688 DATA "%# 4Ot $444 ¢ $4 + 4 $44 ae ** 
1398 DATA °# ¢ % $444 ¢ ¢ $444 ¢ $4 *°" 
1488 DATA °# *° 
1418 DATA °# c EF St S660 RE Kr Tt #" 
1428 DATA "# ESit £ 6 he i REE ** 
1438 DATA °# COCO CLEC CLe CCE [C *° 
1449 DATA "# cE €C 0 © fe &. Get #° 
1439 DATA "# ; 
1468 DATA *JHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHE ® 
1478 DATA °#+ c#" 
1488 DATA °# #* 
1498 DATA °# #" 
13998 DATA °# *° 
13518 DATA °# ** 
1528 DATA "# +#" 
15398 DATA °43464633HEIIHHEMHHHHHHHAHHHHHHHHHHHHHHE EE 
1349 : 


i338 DATA ” 


1568 DATA °B6. 6 c0s ences ons bo's'« wiaistoieee outros ++" 
1578 DATA "3. JHHHHHHHEHHHHHE, . UHHHHHHHHHHEHHHE. 4° 
ROM DINTAG 8B osrcinss 6:5 oistois!s wisi bic 6.06 sx'esiaan's om egie'o ps # 
1598 DATA 7. 3HHHHHHHE. . JHHHHHEHHHHHE, . HHH 4° 
SAMS DATA TBs ac oninsas'n osics vicemne caneerere -eeeee * 
1618 DATA °#.SHHHHHEE. . cece ee esce cence JHE 
1620 DATA. °8....0000. JHHHHHHHHHHHHHHHE. see eee x 
1638 DATA °#.dHHHHHEE. & 4. SHEE 
LESS DATA, 8.) 00: si00:0:0 % HT ccopiieiniee'\s # 
1658 DATA "#. HHH. EEE oo 
1668 DATA "H..seeeeee JHHHHHHHHHHHHHE. oe eee es * 
1678 DATA °#.dHHHHEEE. oe cece cee eeees JHE He 
PEER DATA MH. 0,70 0i0's wale wie v'aclclalbs ovo ace 6% 00%. ** 
1699 DATA °4¢. 3HHHHHHHHYHHHHHE. . HHHHEEHHHHHHHHHE #* 
S7UE DATA. Be 6 crsws.owiie 5 0:00 'b'clwieinien'e ele owipiptielnie = 
1718 DATA °3¢. HHHHHHHHHHHHHHE. . JHHHBHHHHHHHHHHE. 4° 
SPZE ORD, *8 ooo siSvcinicies cule sons sus cmlasioeens es *" 


1738 DATA oMETLECECEEERELECECCELECECLEELEERELGAR® 
1749 DATA *74HHHHHMHHHHHHHHHHMHHHHHHHHHHHHHHHHHHHE® 
1758 ;: 

1768 DATA "3HHHHHHHHHHAHHH JHHHHHHHHHHHHHHE 
1778 DATA "Rl cee cece sece * Becvesvcscses eS 
1788 DATA °#. ##. 4.4. %.%.% %.%. HH, HH. EEE 
1798 DATA "%.... 88... ko. FREE. ELH. HHL eH" 
1688 DATA "Hit. ee eRe eee e cers esccssccee He ee oe HHL ES 
1818 DATA “%. ##. %#. %. HHH. HE. FH. RHEE. EH. HE. .E" 
1828 DATA “He ccceccsecccesessesccsseseseseesese ¥° 
1839 DATA ° #3HRHHHHE. . JHHHHHHHHHHHHHHE. . JEHHHHHHHHE" 
1848 DATA ® %..% et 

1858 DATA ° %..% %..% = 
1668 DATA * %..% %..% . 
1878 DATA ° %. . HHH HEE. . . 
1888 DATA "FHHHHAHEE. wc cc cee cc cccssrese . 
1898 DATA "Hu. ccceesce SHE . THE. GHHE . FHHE we ec ccee %? 
1988 DATA "%. tt . se THF. +t." 
1918 DATA °# Cs Sees eee ee ee Ht. 2 HF -*° 
1928 DATA “Hee ceececcc cc e RHIHHHHH,. ccc cece cece *° 
1938 DATA “"%. 28.2%. 2%.24.% 4. HH. HE. HH. ELE 
1948 DATA "Bl. ee ceeececes Hecescccesees C% 
1958 DATA "S##HES HEHE JHHHHHHHHHHHHHE ® 


1968 DEFine PROCedure CLEARSHEET 
1978 BEEP 8,288,2222,111,1,1 
1988 PAUSE 59 

1998 RECOL 7,1,5,3,4,8,6,2 

2998 FOR n=i TO 28 

28198 SCROLL -18 


2829 NEXT 
2938 BEEP 


2848 SHEET#=SHEET+¢1: IF SHEET=4 THEN SHEET=2 
2345 BOMBS=5: count=9 

2958 END DEFine CLEARSHEET 

2969 DEFine PROCedure defchar 

2878 set#167722 

2988 old=PEEK_L (set) 

2898 news=RESPR (675) 

2198 FOR n=8 TO 875 STEP 4 


2118 POKE 


_L news+n,PEEK_L (old¢n) 


2128 END FOR n 

2138 POKE_L set,news 
2148 RESTORE 2249 
21598 numberofchars=12 
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2168 FOR char=1 TO numberofchars 

2178 READ c%:c=CODE (cs) 

2188 charpoke=news+ 19+ (c-32) #9 

2198 FOR dat=i TO 9 

2289 READ d:POKE charpoke+dat,d 

22198 END FOR dat 

2228 END FOR char 

2238 END DEFine 

2248 DATA * *,124,124,124,124, 124,124,124, 124,124 
22358 DATA °@°,68,56,84, 124,84, 198,124,498, 1988 
2268 DATA * 
2278 DATA ° 
2288 DATA * 
2298 DATA * 
2388 DATA * 
2318 DATA * 
2328 DATA * 
2338 DATA ® 
2348 DATA * 
2358 DATA * 


*, 56,84, 198,124, 188,84,56, 46, 198 
",4,8,16, 16,48, 36, 32,8,9 
*,8,8,9,8,8,8,12,198,96 
*,8,9,8,124,124,124,56,56, 16 

*, 12,184, 16,8,32,8,16,8,8 

", 68,56,84,124, 198,684,124, 49,198 
*,8,8,56,56, 56,56, 56, 56,56 
",24,16,8,56,8,8,8,56,9 
*,8,9,8,8,48,48,8,9,8 

", 2,489,668, 194, 16,44, 189,68,8 


a—* BR >= 1 + ero ew me 


2368 DEFine PROCedure GAME_OVER 

2378 BEEP 8,343,998,64,9,1 

2388 RECOL 4,1,2,3,6,5,7,8 

2398 FOR n=1i TO 29 

24988 SCROLL 18 

2418 NEXT n 

2428 BEEP 

2438 BEEP 8,364,19998,28,2,2 

2448 FOR n=99 TO 1 STEP -1.53 

2458 BORDER n,n 

24668 NEXT n 

2478 BORDER 8,9 

2488 IF score>HIGH THEN HIGH=score 

2498 INK #8,46:AT #8,8,1:PRINT #8,° GAME OVER ° 

2588 AT #8,1,2:PRINT #8," YOUR SCORE WAS °}score 

2518 AT #9,2,3:PRINT #8," HIGH SCORE IS *;HIGH 

2528 AT #8,3,4:PRINT &8,° PRESS ENTER TO PLAY AGAIN * 

2338 BEEP 

2548 key=KEYROW(1): IF key<>1 THEN GO TO 2548:ELSE RECOL 8,3,8,8,8, 
8,8,9:RECOL #9 ,8,8,8, 9,8,9,8,8:init 

23358 END DEFine GAME. _OVER 

23568 DEFine PROCedure monsterdie 

2378 FOR ni TO 7 

235898 INK n: AT MOND-1,MONA-1:PRINT "\°: BEEP 8,nen,n gn 

2598 NEXT n 

2699 INK B:AT MONbD-1,MONA-1:PRINT * * 

2618 BEEP 

2628 scrS(MONb,MONA) =" ° 

2638 MONbD=14;: MONA=17 

2648 score=score+isg 

2638 update 

2668 END DEFine monsterdie 





HY a 0 A 

il A 

' a peg 0 0 qt 0 ll 
cf itty 3 itis i i ‘ a it it e: a i iid ah He | 


ay tee i iifiz be a iat is iti: | 
a ee ig Mae ae : ‘# sue ll 
Woe gy cee 88 ogy gg? TERE gy 
il} aoe ig a ee , Us tect Lt | 
A kg eee yey 
W bg tee : ie ‘, é hihi go i 
il Fah bie fod kag he il 
OEnuEUAUENaREye cs c i 
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ie 0 
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ie fe ve ee PP PCa fifa p's, 
‘ence: TO Bong” PRY i 
The pps od ll 


show two different solutions to the 
problem of making listings look more 
attractive and readable. 

If any reader can come up with 


Space Indenter 
B AW Harun 


Not another ‘Space Invaders’, but 
another file listing utility similar to last something which does the same task in 
month's ListO. We've included it to 100 lines or less, we'd like to see it. 
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100 REMark #8SRERESEEE ESSERE EEERESSEREES 
11@ REMark ### THE SPACE INDENTER! #88 
128 REMark ### (c) B.A.W. HARUN 1986 #88 
138 REMark #88 VERSION 2.88 ee# 
140 REMark S#FSFSSSEREEESERESREREESTOCES 
i5@ 3: 
168 REPeat aain_control 
178 initialise 
168 REPeat indenter 
198 inquire old_fname$,new_fname$,trace_on 
288 process old_fname$,new_fname$,trace_on 
218 IF NOT (another_file) THEN EXIT indenter 
228 reset old_fnamet,new_fnanse$s 
236 END REPeat indenter 
248 IF NOT (another_cartridge) THEN EXIT main_control 
258 END REPeat main_control 
268 CLS #8 : STOP 
278 3 
268 REMark ---------- INTTIALISE q<<=----= 
298 REMark -- GET DIR_TMP, RESET VARS = -- 
388 REMark -- GLOBAL : — 
318 REMark -- files = DIR ARRAY == 
328 REMark -- nue = ARRAY SUBSCRIPT - 
338 REMark -- new_file#= NEW FILES =< 
348 REMark -- new_num © NEW FILE SUBS -- 
358 REMark -- medium$ = MEDIUM NAME =< 
368 REMark -- level% = OF CONSTRUCT -- 
378 REMark -- statusZ = OF CONSTRUCT =i 
388 REMark -- trace_on = VIEWING OF FILE - 
398 REMark -- usedZ, left%, totalz =o 
408 DEFine PROCedure initialise 
418 LOCal memory$,piz,p22% 
428 DIM file$(26,38): DIM new_file$(26,38) 
438 nua = 1 : new_nua = | 
448 levelZ = @ : status% = @ : trace_on = 6 
45@ MODE 4 : WINDOW 88,512,256,8,8 
4686 PAPER @6,@: INK 80,7: BORDER @8,5,2: CLS @@ 
478 CSIZE #8,3,4: AT #0,1,3: PRINT #8, "T HE" 
488 CSIZE @6,3,1: AT #8,3,7: PRINT @@, "S§ P AC E* 
498 CSIZE @8,3,1 sAT €8,5,11: PRINT €8, "I NDENTER !"\\\ 
588 INK #8,4: CSIZE 88,1,8 
518 PRINT #8,70 18;"Please place the cartridge containing"\\ 
528 PRINT @8,70 18;"your Superbasic files in Microdrive 2,"\\ 
538 PRINT 88,70 18;"and then press any key to proceed! "\\\ 
548 INK #8,2: CSIZE #8,2,0: PRINT #8,T0 6; 
"Copyright B.A.W Harun 1986." im 
55@ PAUSE : BEEP 6,58,158,18886,7,5,3,3 
568 CURSOR $8,8,128 : CLS 88,2 
578 INK #8,4: STRIP 88,2 
588 AT @86,28,7: PRINT $8;" Accessing Microdrive 2... * 
598 INK 08,8: STRIP 08,7 
688 DELETE adv2_dir_tap 
616 OPEN_NEW @3, adv2_dir_tap 
628 DIR #3, adv2_ 
638 CLOSE @3 
648 OPEN_IN @3, mdv2_dir_tap 
658 INPUT @3, mediue$, meaory$ 
648 REPeat reed_dir 
678 IF EOF(@3) OR (mum>26) THEN EXIT read_dir 
668 INPUT @3, file$(num) 
698 IF (file$(nua)="dir_tep*) THEN nus#nue-i 
788 num = nuatl 
718 END REPeat read dir 
728 CLOSE @3 1: DELETE adv2_dir_tap 
738 piz = "/" INSTR meaory$ : p2% = * * INSTR meaorys 
748 leftZ = aemory$(i TO pizie.S 
758 totalZ = seaory$(pizte*l TO p2%)#.5 
766 usedZ = (totalZ-leftZ)#.5 
778 IF (nus>26) THEN nus = 26 
766 END DEFine initialise 
798 REMark ---------- INQUIRE --9--------- 
886 DEFine PROCedure inquire (old_fnases,new_fnane$,trace_on) 
616 LOCal ch2,ch$,maxi,esc_key,in_range 
628 PAPER 68,7: CLS 06 
638 copyright _window 
648 control _ window 
658 display_dir file$,nue 
668 BEEP ; trace_on = 6 
876 REPeat questions 
666 AT 12,8: CLS 2: INK 7: STRIP 2 
898 PRINT TO 7,"“Please press appropriate letter for file selection 
988 PRINT "Select between the letter A to 23} wax of 26 Superbasic 
files shown® 
91@ REPeat ask_old_fnane 
928 chi = CODE CINKEY$(-1)) 
938 sax = nuatés 
948 in_range = (chZ>=65 AND chi<=max%) OR (ch%Z>=97 AND 
ch2<=aaxl432) 
958 IF (chZ>=97) THEN chZ # chi-32 
968 IF (in_range) THEN 
978 old_fnamet = file$(ch2-64) 
966 EXIT ask_old_fnaae 
998 END IF 
1888 BEEP 3868,1886,288,588,3 
1818 END REPeat ask_old_fnane 
1826 REPeat ask_new_fnane 
1838 AT 12,8: CLS 2 
1846 PRINT * Please input new filenaee...press ENTER to 
overwrite file.” 
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1858 
1868 
1878 
1888 
1898 
1166 


11186 
1128 
1138 
1148 


1158 
1168 
1178 
1168 
1198 
1288 
1218 
1228 
1238 
1248 
1258 
1268 
1278 
1268 


1298 


1388 
1318 
1328 
1338 
1348 
1358 
1368 
1378 
i368 


1398 
1488 


1418 


INPUT "> "s;new_fnames 
IF (new_fname$="") THEN 
new_fname$ = old_fnamesh’ tap’ 
EXIT ask_new_fnase 
END IF 
IF (verified(new_fname$,old_fname$)) THEN EXIT 
ask new fnase 
BEEP 35888,188,288,1588,5 
END REPeat ask_new_fnane 
AT 12,@:3 CLS 2 
PRINT TO 2," Would you like to view the resultant indented 
file? (Y/N)* 
REPeat ask_tracking 
ch$ = INKEY$(-1) 
IF (ch$ INSTR "Yy") THEN 
trace_on = 1 
EXIT ask_tracking 
ELSE 
IF (ch$ INSTR "Nn") THEN EXIT ask_tracking 
END IF 
BEEP. 3088,188,288,5088,3 
END REPeat ask_tracking 
AT 12,8: CLS 2 
PRINT TO 11,"Press ENTER if Ok, or ESC to start again! " 
REPeat ask_satisfied 
che = CODE (INKEYS(-1)) 
esc_key = (chi=27) 
IF (esc_key) OR (ch%Z=18) THEN EXIT ask_satisfied 
BEEP 3888, 188,288,588,7 
END REPeat ask_satisfied 
IF (chZ*18) THEN EXIT questions 
BEEP 18888,5,25,1888,6 
END REPeat questions 
END DEFine inquire 


REMark COPYRIGHT WINDOW 
DEFine PROCedure copyright_window 
BLOCK #8,318,68,48,28,8 
WINDOW @2,318,68,88,28 
PAPER 62,2: INK @2,7: CLS 82: CSIZE #2,1,8 
PRINT #2,T70 18;"The Space Indenter!" 
CSIZE #2,8,8: PRINT 82,70 28;°@ B.A.W HARUN" 
PRINT @2,FILL$(°-",51) 
INK #2,83 PRINT #2,T0 8;"Please do not remove the cartridge” 
PRINT @2,70 14; "which is in Microdrive 2° 
END DEFine copyright_window 
REMark CONTROL WINDOW 
DEFine PROCedure control _window 
BLOCK @8,486,148,38,182,8 
WINDOW 488,148,58,188 
PAPER 4: INK @: CLS 
END DEFine control _window 
REMark DISPLAY DIRECTORY 
REMark - ONLY DISPLAYS ‘_BAS‘’ FILES - 
REMark - OR FILES WITH NO EXTENSION - 
DEFine PROCedure display_dir (file$,nua) 
LOCal i,ext#,extZ,sbasic 
PRINT TO S3"Directory of ‘"“smediua$;"" “3 
PRINT “= Used :"yusedZ;"K Left :"sleft%y"K Total 
r"stotalZ; °K" 
PRINT FIL&$("-", 66) 
FOR i#i TO nua-i 
extZ = LEN(files(i)) 
IF (extZ>3) THEN 
extS = files (i) (extZ-3 TO ) 
ELSE 
extS = files (i) 
END IF 
sbasic = ("_bas" INSTR ext$) OR ("_" INSTR ext$=6 ) 
IF (sbasic) THEN 


END IF 

END FOR i 

AT 11,80: PRINT FILLS("_",66) 
END DEFine display_dir 
REMark FN VERIFIED 
REMark - CMECKS IF NEW FILENAME CAN - 
REMark - BE USED AND IS VALID = 
DEFine FuNction verified(new_fnase$,old_fnanes) 
LOCal i,ci,c2,c3 

cl = (new _fnames(1)<"A" OR new_fnames(i)>*2") 


c2 = (new fnames(i)<"a* OR new_fnamesii)>"z") 
IF (ci AND ¢2) THEN RETurn @ 
IF (new_fname$=20ld_ fnane$) THEN 
new _fnase$ = old fnamesk’ tap’ 
RETurn 1 
END IF 
FOR isi TO nue 
c3 = (new _fnameS==file$(i)) OR (new _fnames==new_ files(i)) 
IF (c3) THEN RETurn 8 
END FOR i 
RETurn 1 
END DEFine verified 
REMark --------- PROCESS ------------ 
REMark - OPEN & READS EACH RECORD, -- 
REMark - CHECK ITS CONSTRUCT, == 
REMark ~- INDENTS THE RECORD = 
REMark - ACCORDINGLY AND WRITES IT -- 
REMark - OUT IMMEDIATELY, CLOSING -- 
REMark - & TIDYING UP AT THE END ae 
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2818 
2828 


AATA 
4006 


2848 
2858 
2868 
2878 
2868 
2898 
2188 
2118 
2128 
2138 
2148 
2158 
2168 
2178 
2188 
2198 
2288 





DEFine PROCedure process(old_fnase$,new_fnase$,trace_on) 
LOCal recs . 
OFEN_IN #3, ‘maVz_‘&oia_tn 
OPEN_NEW 04, ‘adv2_‘knew_f 
IF (trace_on) THEN 
CLS #8: BLOCK #8,208,38,285,7,8 
CSIZE #8,8,6: WINDOW 208,38,382,5 
ELSE 
BEEP 8,3,55,3888,5,1,7,5 
END IF 
INK 2: STRIP 7: CLS 
AT 1,2: PRINT "Running Indentation process!" 
REPeat scan 
IF ¢( EOF(@3) ) THEN EXIT scan 
INPUT #3, rec$ 
check_construct rec$,levelZ,statustz 
indent_line rec$,levelZ,statusZ 
IF (trace_on) THEN PRINT 88, rect 
PRINT #4, rec$ 
END REPeat scan 
IF (trace_on) THEN BLOCK #8,288,38,285,7,8 
CLS: AT 1,4: PRINT “Indentation done!!" 
IF (level%<>®) THEN 
AT 2,2: PRINT “ERROR IN BLOCKSTRUCTURE! * 
ELSE 
AT 2,4: 
END IF 
BEEP 6,68,208,188,-5,1,5,18 
CLOSE #3 : CLOSE #4 
IF (old_fname$&‘ tap‘'==nenw_fnames) THEN 
DELETE ‘adv2_‘kold_fnane$ 
COPY ‘adv2_‘k&new_fnamet TO ‘adv2_‘hold_fnase$s 
DELETE ‘adv2_‘knew_fnanet 


PRINT "BLOCKSTRUCTURE OK.* 


END IF 
PAUSE 388 
CLS #86: copyright_window: control _windom 
BEEP 
END DEFine process 
REMark ------ CHECK CONSTRUCT ------- 


DEFine PROCedure check_construct (rec$,levelZ,statusZ) 
LOCal keyword$,ci,c2,c3,c4 
statusz% = @ 
extract keywords, rec 
ci = (keywordS=="REPeat" AND long_fora(rec$)) 
c2 = (keyword$2="FOR"® AND long_fora(rec$)) 
cS = (keyword$=#="IF" AND long_fora(rec$)) 
c4 = (keyword$=="DEFine") OR (keyword$=="SELect") 
IF (ci OR c2 OR c3 OR c4) THEN 
levelZ = levelZ+l 
status% = 1 
END IF 
IF (keyword$=="END") THEN 
levelZ = level%Z-i 
selected = @ 
END IF 
IF (keyword$=="ELSE") OR (keyword$=="LOCal") THEN status% = 2 
END DEFine check_construct 
REMark EXTRACT 
DEFine PROCedure extract (keyword$,rec$) 
LOCal space_posn, r$ 
r$ = recs 
space _posn = * " INSTR r$ 
keywords = r$(space_posn+l TO ) 
r$ = keywords 
IF (keyword$(1)=" ") THEN extract keywords, r$ 
space _posn = ° * INSTR keywords 
IF (space_posn <> @) THEN 
keywords = keyword$(1 TO space_posn-1) 
EL5E 
keywords = keyword$(i TO ) 
END IF 
END DEFine extract 
REMark FN LONG FORM 
REMark - CHECKS IF STATEMENT USED --- 
REMark - IS OF LONG FORM OR NOT 
DEFine FuNction long_fora(rec$) 
LOCal cl,c2,c3,c4fglt,4#g2$ 
e226: c4 = 6 
fgif = “3 
492% = "THEN 
ci = ":" INSTR rec$ 
IF (ci) THEN 
c2 = ( (rec$(ci TO )#*:") OR (rec$(ci TO ) INSTR fgif) ) 
END IF 
c3 = "THENS INSTR rec 
IF (c3) THEN 
c4 = ( (rec$(c3 TO )**THEN") OR (rec$(c3 TO ) INSTR fg2$) ) 
END IF 
IF (ci AND c2) OR (c3 AND c4) THEN RETurn 1 
IF (ci=® AND c3#8) THEN RETurn 1 


RETurn @ 
END DEFine long fora 
REMark -------- INDENT LINE eceeo-<=- 


DEFine PROCedure indent_line (rec$,leveilZ,statusZ) 
LOCal 1%,nua%,piZ,pos% 

1% = levelZ : nua ® -1 

IF (statusZ>=1) THEN 12% # 12-1 

piz = * " INSTR rec$ 

pos% = piZ 
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3888 
3616 
3828 
3836 
3048 
3856 
3868 
36786 
3868 
3896 
3168 
3118 
3128 
3138 
3148 
3158 
3168 
3178 
3188 
3198 
3286 
3218 
3226 
3236 
3246 
3258 
3268 
3276 
3288 
3298 
3388 
3318 
3328 
3338 
3346 
3358 


3348 
3378 
3388 
3398 
3488 
3418 
3428 
3438 
3448 
3458 
3468 
3478 
3488 
3498 
3586 
3518 
3526 
3538 
3548 
3558 
3548 
3578 
3588 
3598 
3688 
3618 
3628 
3638 
3648 


3778 
3788 
3798 
3688 
3818 
3828 
3838 
3848 
3858 
3868 
3878 
3688 
3898 
39788 
3918 


REPeat check 
IF ( rec$(posZ)<>" " ) THEN EXIT check 
poszZ = posZ+l 
nueZ = nueai+i : REMark #@ num of spaces-1 # 
END REPeat check 
nuaz = (12 # 2)-nual 
IF (nua% > 6) THEN 
rec$=rec$(i TO piZ)&FILL$(" ",nuaZ)brecs(piz+i TO ) 
ELSE 
IF (numZ¢<®@) THEN 
recS#rec$(1 TO pit)&érec$(piZ+ABS(nuaz)+1 TO ) 
END IF 
END IF 
END DEFine indent_line 
REMark FN ANOTHER FILE 
DEFine FuNction another _file 
LOCal ch$ 
INK 6: STRIP 7 
AT 5,7: PRINT “Would you like to Indent another file? (Y/N)" 
REPeat keep asking 
ch$ = INKEYS(-1) 
IF (ch# INSTR "Yy") THEN 
RETurn 1 
ELSE 
IF (ch$ INSTR "Nn") THEN RETurn @ 
END IF 
BEEP 5866,18@,286,5,5,5 
END REPeat keep_asking 
END DEFine another _file 
REMark --- FN ANOTHER CARTRIDGE 
DEFine FuNction another_cartridge 
LOCal ch$ 
INK @: STRIP 7 
AT 3,7: PRINT “Would you like to use another cartridge? (Y/N)" 
REPeat keep _asking 
ch$ = INKEY$(-1) 


IF-(ch# INSTR "Yy") THEN 
AT @2,2,8: INK @2,4: STRIP 82,8: CLS @2,2 
AT @2,3,9: PRINT @2,"°You may now take out the cartridge" 
AT @2,4,15: PRINT @2,"in aicrodrive 2....." : PAUSE 388 
RETurn 1 
ELSE 
IF (ch# INSTR 
END IF 
BEEP 3806,1866,288,5,5,5 
END REPeat keep_asking 
END DEFine another _cartridge 
REMark RESET 
REMark - RE-ADJUSTS FILENAMES IN ---- 
REMark - DIR ARRAY, IE FILES 
DEFine PROCedure reset (old_fnase$,new_fnane$) 
LOCal i,x% 
FOR i#i TO nue-i 
IF (old_fnameS=file$(i)) THEN xZ = i 
END FOR i 
FOR i#xZ TO nua-2 
fileS(id) = files (itl) 
END FOR i 
new _fileS(new_nus) = new_fnases 
IF (new _fname$<>old_fnanaes) THEN 
new file$(new_nuatl) = old_fnaaes 
END IF 
nua = nua-i t new_nue = new_nuat2 
END DEFine reset 
REMark PROCEED 
REMark -- USED IMMEDIATELY WHEN AN -~- 
REMark -- I/0 ‘BUFFER FULL’ ERROR -- 
REMark -- HAS OCCURED DURING THE -- 
REMark -- INDENTATION PROCESS o- 
DEFine PROCedure proceed 
LOCal spZi,rs 
BEEP : spt = " ° INSTR rec$ 
PRINT #8," C€ Proceeding 1" 
rec$ = (rec$(i TO spZ)+1)&° REMark @88886 LOST LINE ! #88888° 
PRINT #4, rec$ 
IF (trace_on) THEN PRINT @8, recs 
REPeat get_next_line 
IF NOT EOF (#3) THEN INPUT @3, rec$ 
spi = " " INSTR rec$ 
IF (spZ*8) THEN 
r$ = "58086" 
ELSE 
r$ = rec$(i TO spi-1) 
END IF 
IF (r$¢="32767") THEN EXIT get_next_line 
END REPeat get_next_line 
check_construct rec$,levelZ%,statusz 
indent_line rec$,levelZ,statusz 
PRINT #4, rec$ 
IF (trace_on) THEN PRINT #8, rec? 
PAUSE 188 : 60 TO 2858 : REMark # Process # 
END DEFine proceed 


"“Nn") THEN RETurn 6 
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INTERFACES/EXPANSION 


APRIL 85: 
Hardware on the Horizon |I 
JUN 85: 





DISK DRIVES PRINTERS MONITORS 


(MAR-MAY, 
AUG & OCT 85: 


FEB 85: 
Printer Impressions JUN 85 
Monochrome Monitors 


JUL 85: 
Satellite Stations 
SEP 85: 
Dipping In 


Hardware on the 
Horizon !-V 
MAR 86: 

Of Disks And Drives 


Driving in 4 Dimensions 







| HARDWARE —_s 


MAY 85: 
Business or Pleasure 


SEF 85: 
System Variables 
JAN 86 ONWARDS: 
Bits On The Sides 





BOOKS COMMUNICATIONS 


AUG 85: 
FEB 85 ONWARDS: Telecommunications 


Bookmarks 


FEB & MAR 85 


Satellite Stations 
MAR 86 ONWARDS: 
QL Comms 





EDUCATION 
MAR 85: 
QL Plus 
APR 85: 
Mind Your Own Business 
JUN 85: 
Digital Precision 


JUL & AUG 85: 
QL at School 









SEP 85: 


Spectrum Connections 


PROGRAMMING 


FEB 85: 
Cursing Recursion 
SEP 85: 
String Manipulation 
AUG 85: 
Computer Allsorts 






FEATURES/REVIEWS 


JUN 85: 
Software File 





TYPE—IT—IN LANGUAGES i, GAMES UTILITIES BUSINESS 
EB 85: MAR—JUN 885: APR 85: 
Machine Code Starter Terns ae 
MAR—AUG 85: _ Bre UG: 
Machine Code Tutorial FEB 85: 
Trooping the Colour 


MAR 85: 
Secret Locations JUN 85 ONWARDS: 
: Graphics on Display 


UTILITIES 


MAY 8&5: 
Computer One Monitor 
MAY 85: 

QL Toolkit 
APR 85: 









APR 85: 
Computer One Assembler 
AUG 85: 
The Perfect Alternative OS 
OCT 85: : 
SuperBasic Compilation Sporting Scene 


Psion 2.0 


‘ 
Cash r 
7 UN 
L 85: 


APR—JUN 85: 
Games Programming 


FEB ee cane RDS: 
he Pr 
or SEP 85: 
Chess in Check 
APR-MAY 86: 
QL Go 


JUL 85: 
Sound & Vision 







Integrated Accounts Talented Graphics 


MAY 85 ONWARDS: 
Al on the QL 
FEB 85 ONWARDS: 
C Series 


APR 86 ONWARDS: 
Basic Alternatives 





Where to go from here — for the benefit of QL World readers who missed our index chart in the QL User Owner’s Manual, an updated guide to articles and information on 
virtually every aspect of the QL contained in previous editions of QL User. 
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QL COMMUNICATIONS 


QCODE TERMINAL software 
Features: 
VIEWDATA TERMINAL — for PRESTEL and MICRONET 
* Split baud rate operation (75tx/1200rx) in conjunction with MODAPTOR (see below) — 
necessary for calling PRESTEL. 
*x Can handle dynamic frames. 
* Full emulation of colours, mosaics, separated mosaics, etc. 
* Save displayed page to file on microdrive or disk. 
* Save entire session to file on microdrive or disk. 
* Replay, create or edit saved pages whilst off-line. 
* Transmit a saved file. 
PLUS 
VTS2 (Scrolling terminal) — for use with Bulletin boards, electronic mail services, mainframe 
computers, etc. 
* 80 column (4 colour), or 40 column (8 colour) modes. 
* VT52 control codes, for fancy editors, etc. 
* Additional control codes to set display colours. 
* Alternate keypad emulation. 
* Upload or download text files using standard utilities on host. 
* XON-XOFF protocol. 
PLUS 
* QLto QL file transfer. Any file transferred from disk or microdrive, including executable 
files, Quill documents, etc. 
* Error detecting and correcting protocol. 


RSPR ON OPN Ne Rn SA oo datnn wun Vid ugwacnnt nee ebuastues cayssasevenetvavernnaboons 
* Links QL to 300/300, 1200/75, 1200/1200 modem. eg WS2000, PRISM 1000 & 2000, 
NIGHTINGALE, DATACHAT, VOYAGER 11. 
* Includes QCODE TERMINAL software. 
* State modem type when ordering if not 25 way connector. 






























GR OEI ASGE IVER | oo obiccsncovencoocessiersensnncchgagtonesfycuiie deantecaens £12.95 
* with screen editor, fast M/c linker, & object library manager. 
ESAs GAINES) cccacansiges tyscsesnssacscssusvenecersvecssaiagaabsenantivannernsonnrs £4.95 






* 4 games: sprite, lander, wall-up, moon lander. 


MODEMS: PRISM Modem 1000 with modaptor & software . £95.00 
Voyager 7 with modaptor & software £129.00 


QPL ASI RAM DISK oss ttectsctstennicsectteceetsestsncunesesssussseduvcaexecacetavens 
* Up to 8 devices. Fastest available! Fully QDOS compatible. 
* Speeds up any program that accesses microdrives or disks. 
x Use with unexpanded QL or any memory extension. 


QCODE 
42 Swinburne Road 
Abingdon 

OXON OX14 2HD 













Tel: 0235 28359 


MIRACLE SYSTEMS Ga 


— 14 day money back guarantee on all products — 
— 12 month warranty on all products — 












QL CENTRONICS PRINTER INTERFACE .....cccccccsssssessecseeees £19.50 
* Complete unit including 3 metre cable 

* Plugs into either SER! or SER2 

SOE SERIE) CPB EAE ios coseodeaa cccctesctcusscancsavezstineateens adSuast Nesieacdescoek £7.50 






* 3metre cable 
OL JOYSTICK ADAPTOR fio vicccininccdsicesscetedis cvdscltccuulbtccetisvatiicoouss 


















* Lets Atari/Commodore/Spectmum joysticks plug into CTL ports 
RE FRE EIN POOIVED cra carepeeeccteatiah poteiensonneicoussceulttrerseutiéidereeusassteth £4.99 
* Copies whole or part of screen to Epson compatible printer 
SDTV REECE ipcvvccvecessttiacuael ae isecshdzuecettabintast tere tedeiituvdie £39.00 
* Links QOL to 300/300, 1200/75, 1200/1200 modem 

OBER PANDERAN 256 ooo. cc.ccceccdvcsesccaseesceibcuveccensicwascessdSsCeciouss £95.00 
* 256K RAM with through connector for DISK I/F 

GIS ER PRNDER FIVE SUZ csccclececccacedecnsvecdftitsensecesseseccicecssecceacers £125.00 
* 512K RAM with through connector for DISK I/F 

OL RAMIDISC SOFT WARE, <ciciiscctecticesccssnecscacceuccascccesesasndececstucta £14.95 






* Configures RAM as disk lookalike 

* Ideally suited to MS EXPANDERAM 

* Enables Microdrive software to run much faster with less wear on 
microdrives 

Fully compatible with Psion packages, SuperBasic etc. 


MIRACLE SYSTEMS LTD Please send CWO. 

















AVONDALE WORKSHOPS (UK ORDERS - prices include 
WOODLAND WAY V.A.T. & Carriage). 
KINGSWOOD (OVERSEAS ORDERS - prices 
BRISTOL include Carriage) 
BS15 1OL Send SAE for catalogue. 
Tel: (0272) 603871 Ext 210 

SINCLAIR and QL are trade 






marks of Sinclair Research Ltd 
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Exclusive Datalink OL Products 


Datalink SPI — QL... .csssssssssseeeereeeeeeses £19.95 
Serial to Parallel Printer Interface 

Plug-In-And-Go design, compatible with 

any Centronics Parallel printers. 


Datalink RS-232 QL Printer Lead ....... £6.95 
QL to 25 Way D Plug printer lead, 
2 metre cable. 


Datalink QL Joystick  ...........ssssss00000002. £9.95 
Quickshot II Style Joystick, 3 fire buttons 
Plug direct to CTL 1 or 2. 


Datalink QL Joystick Adaptor ............ £4.50 
Convert any Atari/Commodore/Spectrum 

joystick to use with QL. 

Plug direct to CTL 1 or 2 via adaptor. 


Prices include Postage, Packing & VAT 
12 months warranty and 14 days money 
back option with all Datalink Products. 















Dealer, Distributor & Export Enquiries welcome. 






Datalink U K Payment by cheque or 








99 Constitution Street Visa Card Welcome 

Leith Telephone for immediate 

Edinburgh, EH6 7AE dispatch 031-553 6161 
031-554 6040 






All trademarks acknowledged 






WDSoftware 


FOR THE QL:- 






JOSS base £13 
Forget that tedious, time-consuming syntax! Just move the cursor and press 
SPACE for all your file commands. Cursor keys or your joystick allow you to access 
microdrives (up to 8) and floppy discs (as many as your interface allows) with up 
to 150 files on each! Scroll and print directories, COPY, DELETE or PRINT any file, 
select TV or Monitor mode before LOADing or RUNning any program. You only use 
the keyboard to set the DATE or label a device when FORMATting. Easy to use with 
Psion and other software. No silly icons to learn — JOSS will TELL you what it’s 
going to do! Programmer's toolkit and mass copying/printing utilities also supplied. 
Specify microdrive-only, Microperipheral or CST-compatible disc versions. 


RefQL7 base £7 
1300 useful QL references with ARCHIVE 2 search/print program. Too long for just 
one Cartridge, so if you have RefQL5 just pay £2 and extra media cost to update. 


Mdv Extension Cable £5.50 
Eight inches long, allows addition of extra microdrives to your QL. Twist it to put 
their slots facing you. 


FOR THE QL/SPECTRUM/BBC/ELECTRON:- 
WD Morse Tutor base £4 
Written to teach amateurs, now used by professionals too! Absolute beginner, or 
stretching your speed to 18 wpm, you won't find anything with more helpful 
features. What else can offer 100 random sentences as well as all the basics! Disc 
version unsuitable for BBC B+. 


FOR EXPORT:- 
Hardware & Software from many sources. Ask for details. 


ORDERING — ADD COST OF MEDIUM. POSTAGE £1 OUTSIDE EUROPE. 
Mdv or 5.25” floppy = £2 3.5” floppy = £4 
Pay base only for cassettes. Specify disc size, tracks, system. 


PAYMENT — By ACCESS/Eurocard/MasterCard or STERLING (UK bank 
cheques, Eurocheques, drafts or International GIRO) To:- 


WDSoftware(QU), Hilltop, St Mary, Jersey, C.I. Tel: (0534) 81392 

































Sy 


















OL 


FULL SCREEN EDITOR. SUPERCHARGE COMPATABLE. 

jJUMp ALTKEY: USer can assign a string to any key no limit on size of 
string (except QL memory), it can be text or a basic program. 

LAST LINE RECALL. JOB CONTROL. RESIDENT PROGRAMS. 

FILE HANDLING. PRINT USING. 

***EXTENDED NETWORK: Allows disc drives, printers etc to be 
shared between QL’S. New Broadcast protocol included. Ver2 of the Toolkit an 
extended (over 100 commands) and extensively improved version of the 
original QL Toolkit. Toolkit comes on 16K EPROM CARTRIDGE together with 
library rack and COMPREHENSIVE MANUAL designed to suit your QL ring binder. 


Quality software by Tony Tebby, Quality product by Care Electronics 
To order see below. 
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HAVE YOUR 14” & 16” PHILIPS & PYE 


COLOUR TV CONVERTED TO A TV/MONITOR Fi vt 
FACTORY 
CONVERSION £80.50a 
RGB KIT £57.50d 
* Resolution better than 585 x 450 pixels. 
* Image clarity comparable to leading monitors. 
* Includes RGB lead for connecting with BBC/QL. 
* Conversions carried out at our workshops within 2/3 days. 
One £10.35c Inc VAT 
Five £34.50c Inc VAT 
Ten 57.50c Inc VAT 







PHILIPS COLOUR , 85 CHARACTERS 


* TV/MONITORS PER LINE 












16” MODEL 16CT2016 £285.90a Inc. VAT 
REMOTE CONTROL SUPER VALUE 
16” MODEL 16CT2216 £311.65a Inc. VAT 

We can supply up to 26” TV/Monitors— 

please ring for details. * FREE 


LEADS SUPPLIED 
FOR USE WITH QL 






















GREEN MODEL BM7502 
@ £83.85b 








By Post. Enclose your Cheque/P.O. made payable to CARE Electronics. 


AMBER MODEL BM7522 Or use your ACCESS. Allow 7 days for delivery. Please add carriage. 
OPEN: 9am-5pm MON-THUR a)@9.99 c)@1.00 


@ £85.10b 9am-4pm FRI/SAT b)@ 8.00 d)@2.00 
UNIT 14, PEERGLOW INDUSTRIAL ESTATE, OLD’S APPROACH, WATFORD, HERTS. TELEPHONE: 0923 777155 & 
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MICRODRIVE 


EXCHANGE 





In return for a small administration charge (per 
program — including a royalty for the author), we will 
copy onto blank microdrives any or all of the featured 
‘programs. 523 tr 

Each program will be a direct copy of the published 
listing, or an extended version of that listing where 
the program in question was too long to print in full 
(programs for which an abridged version has been 
published are marked with an asterisk). 

It must be stressed that we are not selling the soft- 

ware itself, nor providing any guarantee that it per- 
forms any particular function (though we do check 
every program that is to appear in Sinclair QL World), 
we are merely offering a service to readers who wish 
‘to obtain Sinclair QL World/QL User programs on 
drive rather than by typing them in straight from the 
page. —, Bi ple 


$ 


| HOW TO ORDER 


Listed below are programs which have appeared as 
listings inside QL World/QL User and Sinclair QL 
World. 

To the right of each program entry is a small box, 
which you should mark with a bold cross if you want 
to order that program. 

Once you have put a cross next to all the programs 
you wish to have copied onto microdrive, simply 
complete the rest of the order form and send it along 
with your PO/cheque AND BLANK FORMATTED DRIVE 
to: 

MICRODRIVE EXCHANGE, 

Sinclair QL World, 

79-80 Petty France, 

London SW1. 

If you wish us to supply the drive, please add an extra 
£2.50 for every drive required and mark the order 
form appropriately. 

Please allow 28 days for delivery. 
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Richard Cross (MB) _ Sprite Animation £2.00 Apr 
A subtle biend of machine code and SuperBasic that produces a versatile sprite designer and high 
i speedanimator -y 
| Steve Deary (B) Pacman £1.00 Mar 20 0 
A reasonably fast rendition of the famous arcade favourite 
i Andy Carmicheal (B) Family Tree £3.00 Aug 1000 
y Archive program and database for setting up and displaying large family trees 
f James Lucy (B) Composer £3.00 Oct 500 
Compose and play sheet music on the QL : 
Mathew Capp (B). Miners £2.00 Aug 300 
q A nail biting management simulation that puts you in charge of the NCB 
I Py smith (B) * DIY Adventure £1.00 Feb 60 1 





Author — Language Program Name Price ji Issue Size 
Giles Todd (B) DIY Assembler | £5.00 Mar/Jun 120 | 
Converts Assembler source into m/c object code | 
Richard Cross (AO) Mini Monitor £3.00 Oct 60 1 i 
Pocket sized monitor with comprehensive facilities : 

4 A Didcock (B) Connect4 £1.00 Sept 150 

i Pit your wits against the QL 

J Shergold & Tose = (B)_ * Golf £2.00 May 350 
From fairway to green on 59 different courses of varying difficulty 

Paladin £5.00 Apr 70 0 


Williams & Holliday (AO) 
! The basis of our games programming series — a space invaders type game written entirely machine 
code . 


~ $00 


i A skeleton framework where you simply have to slot in the details to create your bespoke adventure 


| RGreen (B) Qthello £1.00 Aug 250 
j A 3D version of the weil known board game Othello for one or two players 
| SJ Ackers (B) *Touch Type £4.00 Aug 800 


Touch typing course — 14 lessons, on-screen keyboard, 800+ word vocabulary and WPM readout 


B = SuperBasic, AO = Assembler + Object Code (ready to run), MB = Machine Code + 
f Basic loader 


| Name 

Address 

| Noofprogramsordered _.............. Fotalcost.. ©. .c..05. 

i Total sectors 

(max200 perdrive) —............ 

j Noofdrivessent —_............. 

| Noofdrivesrequired —............ @  £2.50each £............ i 
Plus postage & packing £ 0.75 i 
H Sub total £............ d 
j ; 
Add VAT @ 315% £............ 
i TOTALTOBESENT €£............ i 


I Please copy onto microdrive the programs above which | have indicated with 

} a cross. | enclose a cheque/PO to the value of £ .............. (made payable to 

j QL World). | understand that Sinclair QL World only undertakes to SUPPLY : 

j these programs (copied onto microdrive) and accepts no liability for their : 
operation as defined by the author. Neither can Sinclair QL World supply 

a additional information about any of the listings other than that originally l 
printed (any article reprints required must be ordered and paid for separately | 

j at £1 each inclusive of post and packing). 
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INSTANT 


ACCESS 


A>Line Computer Systems 
0533 778724 

4-way mains filter/adapter 
Action Computer Supplies 

01 903 3921 

Mains spike eliminator 

Anglo Services Ltd 

0705 671421 

QL Eprom Programmer 
Broomspring Specialities 

0742 737000 

Table-top stands 

Cambridge Microelectronics Ltd 
0223 314814 

Q-PROM Eprom Programmer 
Cambridge Systems Technology 
0223 323302 

Care Electronics 

0923 777155 

Philips and other monochrome monitors 
Commpak Data 

0792 473697 

Computer Supplies 

146 Church Road, Boston, Lincs 
Joysticks 

Compware 

0270 582301 

Disk drives, memory, monitors etc. 
CST 

0438 352150 

Data Distributors Ltd 

0990 28921 

Kaga, Sinclair Vision 

Eidersoft 

0708 851099 

QL Mouse 

Eprom Services 

0532 667183 

Tony Firshman Services 

01 267 3887 

Mains Spike Filter 

4 Systems 

68 Foxwood Close, Feltham, Middx 
Cartridges & box 

Management Science Ltd 

17 West Hill, London SW18 

QL case 

Microworld 

0293 545630/0273 6711863 

Kaga, Epson, Smith Corona, Microvitec, 
Philips, Vision 

Miracle Systems Ltd 

0272 603871 

Modem House 

0392 69295 

Opus Supplies Ltd 

Redhill 65080 

IVC 

PCML Ltd 

0372 67282/68631 

QL+ RAM cards 

Power International 

0705 756715 

Mains spike eliminator 
Printerland 

0484 514105/687875 

Epson, Brother, Kaga, Canon, Juki 


60 





Q-Links 

0436 6660 

Cables & accessories 

Silicon Express 

0533 374917 

Sinclair Research 

0276 685311 

Slave Software 

050 846 8866 

Q-Disc 

SMC Supplies 

01 441 1282 

Joystick adaptor, Centronics & Epson Serial 
Spectrotek 

0669 20565 

QL repair service 

Strong Computer Systems 

0267 231246 

Brother, Shinwa, Epson, Kaga, Mannesman 
Tally, Canon, Daisystep, Smith Corona, 
Microvitec, Philips 

Tandata 

06845 68421 

(OEL) 

Technology Research Ltd 

0784 03547 

Transform Ltd 

089 283 4783 

QL dust cover, microdrive storage box, 
RS232 lead 

Twickenham Computer Centre 

01 891 4991 

Kaga, Ensign, Canon 

Viglen Computers Supplies 

01 843 9903 

Voltmace Ltd 

Park Drive, Baldock, Herts 

Printer stand 


Accountancy Software 
Sinclair Research 

QL Cash Trader 

Adder 

0223 277050 

Q-Doctor, Assembler 
Aleph (Finland) 

358 67 77408 
QL-Numerical, QL/OR 


Bridgebrook Intek 

45 Burleigh Avenue, Wallington, Surrey 
Bank Manager, Diary Manager, Thought 
Manager 

Champagne Computers 
Amsterdam 020 149130 

QL boek, DR Q Leap 

Co-op Soft Ltd 

0272 22223 

Civil/Structural Engineering 
Compugem Ltd 

01 731 7948 

Master Blaster 

Computer One 

0223 862616 

Pascal, Forth, Assembler, Typing Tutor, 
Monitor 

CP Software 

10 Alexandra Road, Harrogate 

Bridge Player 

DA Bandoo 

81 Mount Pleasant, Wembley 
Assembler, Screen Editor 

Data Management 

0904 760351 | 

SBUTIL, Mbackup, Terminal, Chargen, 
SBextras, FM 





DataGEN 

0989 67469 

Packages for Solicitors, Accountants, Video 
Libraries, Double Glazing Sales & 
Miscellaneous Credit Control. 

Digital Precision 

01 527 5493 


QL Super Sprite Generator, Games Designer, 


Monitor + Dissassembler, QL Super 
Backgammon 

Eidersoft 

0708 851099 

QL Art, Zapper, QSPell, Archiver, BY II & III, 
Citadel, Spook, ICE, Integ Accounts 
English Software 

061 835 1358 

QL Hyperdrive 

Equate 

2 Ffordd Denwyn, Penyffordd, Chester 
Solar Invaders, Wall Breaker, Draughts, 
Mind Your Path, Statistical Averages, 
Calendar 

Flite Software Ltd 

01 353 7423023 

Equate (maths package) 

GST Computer Systems 

0954 81991 

QL Assembler, OSK/OS, OC C Compiler, 
Macro Assembler 

Hisoft 

0582 696421 

MonQL 


Israel Software Research 

41 Kfar Chabad, ISRAEL 60978 
Matzab Ball Game 

J&D Software 

3 Alfred Road, Lowton, Warrington 
Leisure Genius 

01 935 4622 

QL Scrabble 


Metacomco 

0272 428781 

Assembler, BCPL, Lisp 

Micro Processor Engineering Ltd 
21 Hanley Road, Southwater, Horsham, E 
Sussex 

QL Terminator Emulator 

MicroAPL 

01 622 0395 

Microdeal 

0726 68020 

Havoc, Frogger, Cuthbert 
Micrologic Consultants Ltd 

57 Station Road 

MPC Software 

0602 820106 

Most popular games 


New Horizon Software 

Fourwinds, 30 Cwm Lane, Rogerstone, 
Gwent 

Pacman, QBERT, Gold + others 


Paddy Software 

0726 832718 

Educational Programs 

PCS 

8 Oak Grove Way, Bridgwater, Somerset 
PCS Utilities 

Peak Electronics 

32 Clifton Avenue, Hartlepool, Cleveland 
QL Colour Quest 

Portfolio Software 

PO Box No 15, London SW11 

Positron Computing 

0554 759624 

Hi-res screen dump 


Printerland 

0484 513105/687875 

Psion Chess, Metacomco Assembler 
Prospero Software 

01 741 8531 

Pascal, Fortran-77 

Psientific Software 

0482 649187 

Keydefine, Q-Calc Calculator, Real Windows 
Psion 

01 723 9408/0553 

Quill, Abacus, Easel, Archive, Psion Chess 
QCode 

42 Swinburne Road, Abingdon, Oxon 
Terminal Emulation, 68000 Assembler/ 
Editor 

Qjump 

Sinclair Research 

QL Monitor, QL Toolkit 

QSoft 

01 499 7417 

Agenda 

Quest 

04215 66488 

Business Accounts 

S&B Software 

20 St Nicholas Street, Diss, Norfolk 
Fantasia Adventure 

Saltgrade Software 

31 Royal Terrace, Edinburgh EH7 

File Manager, File Editor 

Slave Software 

050 846 8866 

Arable Farmer Software 

Strong Computer Systems 

0267 231246 

Super Plant Software 

097 423 223 

Plant & gardening software 

Swansoft 

164 Vicarage Road, Morriston, Swansea 
Space Trek 

Talent Computer Systems 

041 552 2128 

SKUL, WEST, GraphicQL 

TDI Software Ltd 

0272 742796 

USCD Pascal, USCD Fortran 77, Advanced 
Development Toolkit, USCD P-system, USCD 


Prolog 
TR Computer Systems 
093 924 621 
QL Payroll 
Tropic Software 
09274 27497 
Bongolia Escape 
WD Software 
0534 81392 
Hilltop, St Marys, Jersey 
WD Morse Tutor 

BOOKS 
Adder Hutchinson 
0223 277050 01 387 2811 
Century McGraw Hill 
01 434 4241 0628 23431 
Collins Melbourne House 
01 493 7070 01 940 6064 
Duckworth MicroPress 
01 485 3484 0892 39606 
Ellis Horwood Ltd Prentice Hall 
(284 789942 (442 58531 
Granada Sunshine 
01 493 7070 01 437 4343 
Harper & Row 
01 836 4635 


Sinclair/QL World April 1986 





COMPUTER CLEANERS 


STOP LOCK-UPS AND DATA CORRUPTION 
(due to mains inteference) 
DO YOU GET LOCK-UPS? 
DOES YOUR DATA GET CORRUPTED? 

If this is due to mains interference then our plugs may be the answer 
As well as cutting high voltage spikes they smooth the cut spikes and filter RF 
interference from 1 to 30 MHZ (30db) and up to 130 MHz. 

Some customer comments: 
“With the cleaner ... (locking up) ... is no problem now” — Electrical engineer. 
.. these computer cleaners work” — Computer user group. 
. the device is the answer ... (loading problems)” — BBC owner. 
“bck. -ups are cured” — Golf Club QL. 
“It seems to work fine. No lockups yet” — for use in Papua New Guinea. 


“Thank you for Unbelievably prompt delivery” — Concrete manufacturer. 
“| shall recommend your product ...” — Bedford customer. 


ADAPTOR -— 1 three pin socket 
TRAILING 4-WAY SOCKET 


Simply plug either in — no wiring required. 
TONY FIRSHMAN SERVICES 
43 Rhyl Street, London NW5 3HB. 01-267 3887 


JOYSTICKS FOR QL 


Plugs straight into control port 1 or 2. 
NEEDS NO INTERFACE OR ADAPTOR — £7.99 each or £15 for two. 
Add 50p p&p. 

Two joysticks plus CONCENTRATION (an addictive 1-4 player game) on 
microdrive cartridge for only £23.95 inclusive. Game only: £10.95 inclusive. 
Send to: COMPUTER SUPPLIES 
146 Church Road, Boston, Lincs. PE21 0JX. 


£14 inclusive 
£24 inclusive 


QfLash presents 
RAM disk for the QL 


New version 2.4, now even faster than before! 

Twelve times faster than other RAM disks QL screen image (32768 bytes) 
loads in 0.119 seconds! 

|/O-intensive programs run up to 100 times faster 

No bugs reported since initial release in August 1985 

Full dynamic memory allocation —- no FORMAT command necessary. 

No memory reserved for file data unless really used for your files 

Up to 8 RAM devices can be used with up to 50 files each 

No limits on the length of files or RAM devices 

Works on standard (128K) QL and with all QL software, and takes full 
advantage of expansion memory up to the 640K maximum 

Just as easy to use as microdrives or floppies, but much faster 

Due to the high demand, we are glad we can offer you a new low price of £17.- 
or DM 62. (all included) 


Send Eurocheque to QfLash, Post Box 102121, D-2 Hamburg 1, 
West Germany or call (Hamburg) 6512742 or 7650461 


+t +44 4+ >t 


curry 
computer 


Hardware, Software, Peripherals, 
Printers, Books, Magazines, Accessories 
P.O. Box 5607 e Glendale, AZ 85312-5607 U.S.A. 
1-602-978-2902 e Telex (via WUI): 6501267701 
DEALER INQUIRIES WELCOME 


REVISION on the QL by PADDY SOFTWARE 


Q REVision — the structured, clear & concise data is independent of Q REV. Hence, 
subjects can be used interchangeably. Purchase Q REV once with the 1st subject — buy 
just data thereafter 


Subjects at ‘O’ Level: 
Q PHYS, Q CHEM — both cover most of all syllabuses. 


Q HIST — Gladstone, Disraeli, Eastern Question 1874-8, Liberals 1906-14, Salisbury, 
Parliamentary Reform, Clash with the Lords, Women & the Vote, Trade Unions, WWI (West- 
ern Front, Causes, at Sea, against Turkey, at Home). 

Q REV & ist Subject — £12 Additional Subjects £7 
Q VERB — tests 40 French Verbs — regular, irregular, reflexive. Especially written line editor 
allows accents to be added/changed/removed visibly as you type. Verbs, tenses & persons 
can be selected by the user or generated randomly. 

Q VERB is separate from Q REV; on its own — £8 
Prices include p&p, VAT & full instructions - Overseas orders £1 extra 


Phone 0726 83 2718 or send SAE for details to: 
PADDY SOFTWARE, Paradise Cottage, Golant, Fowey, Cornwall PL23 1LH. 


Your Complete Sinclair Stockist 
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Software2000 — QL software for the professional user 
VT52 TERMINAL EMULATOR £19.50 
Connect your QL to a mainframe host computer such as Digital VAX and PDP. Permits full screen edit and keypad functions. Easy to use 
FILE TRANSFER feature. 

TEXTRONIX / WESTWARD / VT52 TERMINAL EMULATOR 9.50 
Your QL becomes a full graphics terminal for use of sophisticated mainframe graphics programs. Graphic mode provides line drawing, 
selective erase, block erase, write through mode and graphic input. VT52 mode and FILE TRANSFER feature. Easily configured via SETUP 
screen. 

QL BACKUP / RESTORE New Version 1.2 £8.00 
The FAST way to create security copies of microdrives/disks. Provides selective BACKUP, RESTORE, DELETE, LIST and FILE CORRECTION 
features. 

PRINT2000 for Brother M1009, Epson & Equivalents £8.00 
Prints files in the format and style you want. Easy 4 page SETUP feature to set paper width, line spacing, font etc. Special Double Column 
& Hexadecimal print formats. Wild card feature prints of all _bas files on cartridge etc. 


All programs 100% M/code. Note OL hardware is restricted to 1200 baud comms. 
Unique Trial Offer — Send for details 
Software2000 Oxford House, 258 Garstang Rd, Preston PR2 4QB 










We are a Software House based here in the UK 
as well as in the USA. We will pay excellent 
royalties for quality software written for the QL. 


Contact us immediately and let us make you 
your best deal. 


Gryphon Software Systems Ltd 

P:Q. BOX 255 

Bridgend, Mid. Glamorgan CF32 OYE. 
Tel:- (0656) 744679 


QL BUT NO PRINTER? 


We print your Quill documents on top quality paper (100 gsm) using daisy wheel printers with carbon ribbon. 
Prices: 1-5 Pages 26p/page 

6-20 Pages 22p/page 

21+ Pages 19p/page 
Dot matrix Quill drafts and QL program listings : 12p/page. Please add 45p post and handling charge for orders 
under £3. 
Send for full details or QL microdrive cartridges with clear instructions to: 

DATA PRINTING SERVICES 
25, Seymour Road, Bath, BA1 6DY 


Please note: we suggest that, in keeping with good software practice, you send only backed-up microdrive 
cartridges, clearly labelled. 


==== BREAKTHROUGH SOFTWARE ==== 
GREAT INNOVATIONS FOR THE QL AT SENSIBLE PRICES 
REAL WINDOWS!!! £6.50 inc cartridge & p&p 


Each Real Window is stored off screen. It can be swapped with the part of the screen it overwrites, altered and 
then swapped back again. Several windows can be overlapped and ‘shuffled’ onscreen. Makes professional Pull 
Down menus, possible as the screen is restored to its original state when the window is put away! Text and 
graphics are both handled! Real Windows are controlled from basic using only three commands (all machine 
code):- 


BREAKTHROUGH ON-LINE SUPERBASIC MANUAL £8.50 inc cartridge & p&p 


Press the F] key and the screen you are working on (text, listing, graphics inlcuding multiple windows) is saved 

instantly! Enter a Superbasic Keyword and everything you want to know is displayed on screen. Flip between 

screens to check syntax etc. Contains ALL Superbasic commands and much more. Create your own help files with 
ill. 


MULTITASKING PRINT SPOOLER £6.50 inc cartridge & p&p 
Touch a function Key then type in the input filename and the output file device. It will be sent to the printer or net- 
work or even another file, whilst you continue with what you were doing. Fully machine code and multi tasking. 
Works from within Psion packages! Includes command to exit and re-enter Quill from Basic. 


FAST LOADER FOR SUPERBASIC £7.50 inc cartridge & p&p 


Loads even the longest Superbasic Program as quickly as professional software packages. Saves and loads all 96K 
of Systems Variables, SuperBasic program, variables, data and machine code routines as a single binary file! 
EVERYTHING loaded and ready to go in one operation! 


x x x FREE x x *« FREE PROGRAMS « « x FREE x x * 
8 M/C BASIC COMMANDS + SCREEN DUMP & RECALL 
FREE WITH ALL PURCHASES 


GETN & GETS Allows you to edit variables on screen. MCCUR Moves the cursor up down left or nght. TAB Moves 
the cursor to the given column no (left or right). FONT Allows you to reset the font address. Makes user designed 
graphics possible. RMODE returns the current display mode, DUMP dumps | or more lines from the screen to 
the printer. BVAR returns address of Basic Variables. PLUS HI RES SCREEN DUMP to pmnterat the touch ofa key 
AND RECALL, F5 gets back the last line you typed (as in archive), edit your errors and re-enter the line 


17 SHAFTESBURY WAY, ROYSTON, HERTS. SG8 9DE Tel (0763) 45482 


QL POOLSWINNER 


The ultimate pools prediction program 

MASSIVE DATABASE Poolswinner is a sophisticated pools prediction aid. It comes complete with a large 

database — 22000 matches over 10 years. All English and Scottish team names are in the database. 

PREDICTS Not just score draws, but no scores as well. 

SUCCESSFDUL We guarantee that poolswinner performs considerably better than chance. 

UNIQUE The precise prediction formula calculates the actual efficiency of every team as the results come in 

and with speed. As far as we know there isn't another pools predicting program that uses this method. 
ONLY £14.99 (all inclusive) 48 hours delivery from: Techsoft, 24 Wharncliffe Street, Barnsley, South Yorkshire 
S70 6BP. 


RACQUET SOFTWARE presents 
NIGHT FIGHT AT THE QL CORRAL 
A 2-player Western Shootout 

Also ... Multi-tasking MODE-8 Screen Dump 
(Epson compatible) featuring true or inverse 
representation 
Prices: NIGHT FIGHT game 
MODE-8 Screen Dump 

OR if ordered together 
Please add £1.00 p&p (regardless of number of 
copies). Send cheque/PO to RACQUET 
ENTERPRISES LIMITED, P.O. Box 300, 
Welwyn, Herts AL6 9NU. 


QL 


WORLD 


CLASSIFIED 


FOR DETAILS 
RING 01-222 9090 
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Births, Deaths, & Marraiges 


Born April 7th 1986 
M ce 7 


PARENTS: Eidersoft 

SEX: QL 

PEDIGREE: Apple Mac’” Quality Mouse 
Control; Romport Interface 

DISTINGUSHING MARKS: 3 red buttons 
COLOUR: Black 

SIZE: 90x60x25mm 

WEIGHT: £89.95 or £65 if you already own ice 


Eidersoft Mice come complete with t€@ and Art iCé 
mouse graphics. (optional CHOice and ICE Toolkit) 








[ Please. resefve......... Mice from the Ist litter @ £89.95 [ 
p each +£2.50p&p or £65 +£2.50p&p if you have ICE* 4 
Bo ASS, 2... cgaied otal, dgueewteoetl de Post: Cod@.x.sa.-ssecmanen [ 
[ 
PNRM SBE oceans tne es telecast real armrcaerialiaie eens salcamnondees ia cack " 
ce ke ee re See te 
[ k 
eC EE cae lions eaters Tie ort Te © t 
I would like further information only [] [ 
i would Itke to order G.O2D:. SigMature....c.-..-chcccocessese0e 
Note: Europe less VAT @ 15% +£5p&p 
*Requires return of ICE Rom 
Dayisinie Pek NOs 162.5 Syatecwscdbvesteae inv csvessGaceopese nance buanes , 
Penclose a-post Gated ChEGUE TOI £,..,...s.<acnsccver er ules ronedies [ 


I 
I 
TRADING POLICY: No cheques or credit cards will be f 
cashed/debited until April 7th 1986. (allow 10 days for delivery) i 
TM Apple Mac is the Trademark of the Apple Corporation. { 
[ 
[ 
[ 
| 


Eidersoft, The Office, Hall Farm, Ockendon, 
Upminster, Essex RM14 3QH. 
Telephone: 0708 851099. 


WANTED 


We urgently require programs for the SINCLAIR QL in 
the following categories. All programs will be considered 
regardless of source language — generous royalties — 
Business; Specific Business Applications; Technical / 
Scientific; Languages; Educational; Business Games; 
Graphics/Art; Utilities; European Language Programs. 


ad ec diay eameia 
Ba 


If you would like to earn from your efforts, write or 
telephone Simon Williams for an application form today! 


Eidersoft Simply better QL Software 


The Office, Hall Farm, North Ockendon, Upminster, 
Essex RM14 3QH. Telephone: 0708 851099 
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eTHINKING ABOUT EXPANSION 7? | 








®LOOKING FOR LOW PRICES? 






®WANT IMMEDIATE DELIVERY? 











Typical Gystems Avallabis 










EXCLUSIVE INCLUSIVE 
VAT VAT 










4 PCML 256k ram + Rom Toolkit 








+ Diso Interface £225.00 £258.75 
2 PCML Rom Toolkit + 

+ Diso Interface — 84.00 &£ 96.60 
3 Single 34" Cumama Drive 

to 720 kb & 92.00 £105.80 
4 Double 34" Cumama Drive 

to 1440 kb £165.00 £189.75 











PRICED SYSTEMS READY CALCULATOR 







2 + 3 £176.00 

2+ 4 £249.00 £286.35 
f. -9 £317.00 £364.55 
1 + 4 £390.00 £448.50 
Delivery ‘& 8.70 &£ 10.00 






BRAINSELL. 
414 Penns Road, Petersfield, Hants GU32 26N 
Tel. (0730) 66700 






ABC ELEKTRONIC 
BYTE BACK 

CARE ELECTRONICS 
COMPWARE 
DATALINK 

D. S. ENTERPRISES 
DIGITAL PRECISION 
EIDERSOFT 
FARMINTEL 

4 SYSTEMS 
KEMPSTON 
LEISURE GENIUS 
METACOMCO 
MICRERSOFT 


MICRO ANVIKA 
MICRO APL 
MICRODEAL 
MICRONET 800 
MIRACLE SYSTEMS 
MPC SOFTWARE 
PYRAMIDE 


RUBICORN 

SILICON EXPRESS 

STRONG COMPUTER SYSTEMS 
TANDATA 

VIGLEN 





STRONG COMPUTER SYSTEMS 
BRYN COTTAGE, PENIEL, CARMARTHEN, DYFED SA32 7DJ 


TELEPHONE: 0267 231246 
WITH VERSION 2.3 SOFTWARE 
PRINTER PRICES INCLUDE MIRACLE SYSTEM INTERFACE MONITORS (CABLES INCLUDED 
SEIKOSHA SP1000A OR SINCLAIR BADGED SERIAL .........c cece eee Microvitee- Cub 145 1/DGS Golo Fis scscccrcr ie sccecsk cs cccctaceeteonssceeastezstoetsuseavens £254 
BESO el GUl at) Sei: ne nce -  ee eee, £249 Microvitec Cub 1451/DQT3 with Swivel Stand woo... eee eeeeeeeseeeesseeees £274 
EEOUNENOO WWIRTICIERAG TOR EEED cpcncneceocesctteteescorvencscecsddeatsnececsszecensencenees SSIES ES ECU LO) A [eV | (cy. y Sel 2 a 
TTS 2079) OSU ie ee a Se Se, aR an A ee ee Oe £249 Philips V7001 18MHz Green (RECOMMENDED FOR THE QL) ......................... £92 
Ee Met 1 Nesp, AR A ae ay PCIE | = AE ee Rr EE £419 
GEER BPN WOT os (|| S & 12, gle nt ls a NS a Se al a £219 3250 WATT MAINS FILTER .................ccccccccccccccccccccccccccccccccsccscccessesssssseees £36 
Miraele:-Systems Parallel ItGrhaCe cic.c.ceccsecccaccccscsaccscscossooeveoccosscoenvvasceasceecs £20 * Provides four protected mains sockets with plug 
SPEEA) PE LEY Sa er es ct yy a ne £10 * Avoid crashes and damage to the QL’s components 
2000 Sheets Fanfold Paper (Supplied with printer) .........0..0cccccceseeeseeeees £16 % 30db suppression 1MHz to 30MHz 
ACCESSORIES * 130 joules spike suppression 
Se eee inn PSS EOSIN aceite aca MICRACLE SYSTEMS MODAPTOR ..o..-.scsccccsccocsoceescsesessscscece £39 
ges with Transform Box 
10 DS/DD 5.25” Disks ............. * Link your QL to any modem with an RS232C socket 
* Prestel and Bulletin Board software included 
Brother M1009 ................0 £5.50 M780 or Shinwa .................... £6.00 SURESHOT SUPREME JOYSTICK oo... cece ssessseeeeenees £22 
QU EN DAMA wsccccccscezsecescesvcttecms snip SP1000A (SINCLAIR) ............... £7.50 QUICK SHOT Il JOYSTICK WITH ADAPTOR .............00..00.0 se 
UPL ge ADEE 0 to, Sen oe CP yi Gl ee ee ee ee eee ee 


* * BUDGET RAM & DISK UPGRADES x « 


Replace Miracle Systems Expanderam — giving 640K Total 
Stacked Disk Drives 3.5” 720K formatted 
Cumana interfaces with Toolkit & RAMDISK function 


STACKED DUAL DISK DRIVES + INTERFACE + EXPANDERAM £399 
MIRACLE SYSTEMS 512K EXPANDERAM £119 
SINGLE 3.5 DISK DRIVE + INTERFACE £199 
STACKED 3.5 DUAL DRIVES + INTERFACE £289 
10 QUALITY DS/DD 3.5 DISKS IN LIBRARY CASE £34 
LOCKUP STORAGE BOX FOR FORTY 3.5” DISKS £14 


Includes: 


x DISK HEAD CLEANER FOR 20 CLEANS 


x ANTI-STATIC MONITOR SPRAY 


x KEYBOARD CLEANING SOLUTION 


SOFTWARE 

LANGUAGES TR SYSTEMS PAYROLL ............. £63 
METACOMCO ASSEMBLER ......... DECISION MAKER ..................0062. 
METACOMCO BCPL ..............+--0-- £49 PROJECT PLANNER .................... £35 
METACOMCO LISP ..................... gag ENTREPENEUR ..... £35 
METACOMCO PASCAL ............-.-- £69 QLHOME FINANCE (BUZZ) ......... £22 
METACOMCD ‘C’ ........... eee 79 YPING TUTOR occ d ek 
DIGITAL BASIC COMPILER .......... £49 EIDERSOFT ARCHIVER ................ £17 
DIGITAL FORTH + REVERS ....... £24 EIDERSOFT QSPELL (CART) ........ 
QMON MONITOR/DEBUGGER ...... £18  EIDERSOFT QSPELL (DISK) ......... £23 
TALENT CARTRIDGE DOCTOR ..... £13 

TONY TEBBY’S NEW SUPERTOOLKIT Il ON EPROM .........ccssscccssscecssecssseessseees £34 
EIDERSOFT ICE TOOLKIT ..........sssssesssceescseeesssccsveeene eek re ee £10 
IER SORT ICEVARTICE: ................cabs..scsceandl eo ae ae eee mee £13 
EIDERSOFT ICE CHOICE. ..ss:tepsu.cte ce heeetrarauncete cee... cree £15 
EIDERSOFT ICE EPROM ON ITS OWN ........scecsseecssesessecssseesssecenseessteessueesnneeen £24 
EIDERSOFT ICE EPROM WITH SOFTWARE COMPENDIUM ..............0.--+e--seee-- £59 


LEISURE 

TARENTIZIUE Secexetitieraeiasatdssnese £13  MICRODEAL HOPPER ................. £12 
TALENT WEST uc. ccstvctecsstecavess £13  MICRODEAL CUTHBERT/SPACE .. £12 
TALENT GRAPHIOL .......cccct.coscertss £16 MICRODEAL CRAZY PAINTER ..... £11 
QE PANT ncessoonsstetendtneeeerer aes £24 MICRODEAL FLIGHT SIMULATOR £16 
ZAPPER WITH EAGLE ................. MICRODEAL LANDS OF HAVOC .. £16 
QL SPRITE GENERATOR ............. BORE PURNG: vncnc..cselenessstvctacersees £10 
QL SUPERBACKGAMMON ........... EIZ GMAIGHIPOING, oon. ooo. iasn. se ssseerees £13 
PSION CHESS sco cceecteeestesce 3 ami 9 | Ean See ere ee ere £15 
FY PODIUM Ee terest pesetstevcsvessccoceseens £13 QLSUPER ARCADIA .........000... £13 
DIGITAL REVERSI ........... eee 3 RUS 220) SS Sea re Be £10 
STEVE DAVIS SNOOKER ............. £13 DIGITAL ASTROLOGER ............... £23 
TRENT GCOGMOS | ..0cisererscsseressese £13 MASTER BLASTER .......00. £9 
GQE-CAVERNS .*......ce-sc0es: asc EiE i 2 CLBOUNDER: ..55--nreseconesieczsarvreved £10 
QL PAWN iat .csc eee £18 QLMETEOR STORM ................... £11 
OL FIGTIONARY toccctini<dsennatas SS © BU BO ie 2a ekeccs...ttncieictes tte £10 
COA Fe scsccgeds.fctciaibesdssedsonees ON A SORAB Be oo os sin ee cece ectedeenensed £13 
RINGER HENGE prec alieteatacessdeesvass Eis. SD SUME wo... £12 
ZAPPER with EAGLE .................. EO: (QL-SABBER «cn wstesoctieRucet £10 
NEMESIS Siecccasnsssacrmene £12 


* ALL PRICES INCLUDE VAT AND NEXT DAY DELIVERY BY INTERLINK * 
* OR FIRST CLASS POST x 


7 
=~ 
= 
~ 
~ 
oo 
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Hit): [RUB 


* Ad dictive al cade action 
x Continuous music and sound eff acts 
* Up to 2 moving full colour sprites 

* One or TWH player game optior 
x 


Joystick! Keyboard 





